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Tandy Computers: 
Because there is 
no better value. 


The Choice Is Yours 





The slimline Tandy 102 
or the Tandy 200 with 
large flip-top screen. 


The Tandy® 102—only $499. This slim, light 
portable gives you complete computing power at 
a portable price. Its small size makes it ideal for 
people on the go. With five built-in programs, the 
Tandy 102 is ready to go to work right away. Use 
the 102 as a personal word processor, address/ 
phone directory, appointment calendar, telephone 
auto-dialer and modem. You can even write your 
own programs in BASIC. 


The Tandy 200—more power for only $799. It’s 
ideal for accountants, financial planners, or any- 
one who works with figures. You can perform 
sales forecasts, budgeting, pricing, engineering 
calculations and more. The Tandy 200 features 
BASIC programming language, a built-in direct- 
connect modem and a larger 40 x 16 display with 
double-height characters for maximum legibility. 
Built-in Multiplan™ makes spreadsheet analysis a 
snap. You also get an enhanced version of the 
Tandy 102’s word-processing program, as well as 
an appointment calendar, address-and-phone di- 
rectory, and telephone auto dialer. 


Need more storage? Add 
our battery-powered Port- 
able Disk Drive 2 for only 
$199.95. You'll be able to 
| store up to 200K of data 

< ona standard 3'/2” disk. 
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On the road. . .at home 
.in the office. . .in the 
ir. . .the variety of tasks 
you can perform with 
your Tandy portable is 
expanding constantly. 


To keep fully informed 
and up-to-date about cur- 
rent trends, new products, 
and new uses for your 
laptop, you need Portable 
100 magazine. 


From sophisticated input/ 
output (I/O) calls and 
their applications, to sim- 
ple disk drives, Portable 
100 magazine coversit all. 


Portable 100 gives you 
features, news, columns, 
and reviews that are 
thorough and timely. 
And they are written in a 
fast-paced, easy-to-read 
style, by leading experts 
in the computer field. 





|| YES! 


e Tandy portable. . 


C Payment enclosed O Bill me 
Make checks payable to Portable 100 


Name 





Address ___ 
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In upcoming issues you 
will discover. . 








e how new peripherals 
can make you more 
productive. 

more efficient ways 

to communicate with 
your desktop. 

where to buy low-cost 
public-domain 
software. 

how your business 
can be more profitable 
with your portable at 
your fingertips. 
where to find the best 
bulletin boards and 
information services. 
and much more! 


Don’t miss even a single 
valuable monthly issue. 
Fill out the coupon below, 
or to charge it to your 
credit card, call 


1-603-924-7949 


Send no money now! We 
will gladly bill you. 


¥! want to explore ways to be more productive with my 
.and save 47% off the newsstand 
price. Send me a year’s subscription (12 issues) of Portable 100 for $24.97. 


MONEY BACK 
GUARANTEE: 
If you are not completely 
satisfied with Portable 100, 





State 





City Zip 


delivery. 


Canada $45.97 (Canadian funds), Mexico, $29.97. Foreign 
Surface $44.97. One year only. U.S. Funds drawn on U.S. banks. 
Foreign Airmail, please inquire. Please allow 6-8 weeks for 


you may cancel your sub- 
scription and receive a full 
refund. Please allow 6-8 
weeks for delivery of your 
first issue. 
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ROM WITH A VIEW 
W for only a few daysand already we're starting to receive calls from 
readers supporting us. It’s nice to know that our readers care 
enough to respond that fast. 
| Several readers have called to point out an error or two that they found in 
that issue (one went so far as to point out every proof-reading error that could 
be found). We appreciate this attention and will strive to make each issue as 
perfect as possible. Unfortunately, we're only human and as such occasionally 
make mistakes. 

The first several issues will probably have more than their share of errors 
simply because we're working witha brand-new (to us) magazine and haven't 
worked out a smooth processing system yet. Adding to that is the fact that we 
simultaneously doubled our in-house staff and they are still in the learning 
phase of their jobs. 

Once we’ ve had a chance to learn the proper system for processing Portable 
100, you'll see a marked improvement between the 1987 issues and the 1988 
issues. 

We're also starting to receive some of the articles we’ve commissioned, 
you'll see the first of them next month. We have several projects we want to 





System. 

The Portable Computing International Corporation Bulletin Board System 
(PBBS for short) is now ready and willing to serve you 24-hours a day, every 
day. The phone number is 603-924-9770. We accept either 300 or 1200 baud 
calls, with protocols set to eight-bit words, one stop bit, and no parity, (M8N1E 
or 58N1E). 

The PBBS is for ALL portables, not just Tandy, so don’t be surprised by what 
you find when you sign on, we already have a couple of hundred files ready for 
downloading. The Tandy list only has 63 files at the moment (we had an 
accident that lost us about 30 files), but that won’t remain down there for long. 





If you have any files you think should be on our PBBS, by all means load | 


them up and let us make them available to everyone else. The only restriction 
is that we cannot allow commercial, copyrighted software to be posted. 
Give it a try. 
Terry 











elcome to our second issue. The first issue has been on the stands _ 








pursue, the first of which we literally just put on-line today: our Bulletin Board 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 


on Snap-In ™ ROM 





Try Disk + for 30 days. If you aren’t as 
excited as we are, return it for a full refund. 





When we designed Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop’s disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk + comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk+ appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk+ diskette into 
the desktop’s drive and turn on the com- 
puter. It powers up automatically and says 
“awaiting command” on your desktop’s 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system’s 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Mode! 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100’s main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100’s RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you. 


If you have access to a desk- 


top computer and don’t 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 


All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk + is wonderful in 
so many other ways. For example, you 
can do a “save all” of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk+ takes up no RAM. That's zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk+ users 
is text file cross compatibility. Your Model 
100’s text files are usable on your desktop 
computer, and your desktop’s text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 


1-214-351-0564 











instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk +. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk+ works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple Il, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren't enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk+ simply 
can't do without it. But so many times we 
have had new users call us and say, 
“Wow! | had no idea when | ordered it that 
Disk+ would be so fantastic. | just 
couldn't believe that | could use my 
desktop computer's disk drive with my 
Model 100 just like it is another main 
menu.” 

That’s why we sell Disk+ on a thirty- 
day trial. If you aren’t completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


PORTABLE COMPUTER SURORT ORCUP 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 • 1(214) 351-0564 
PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 


Circle 71 on Reader Service card. 


© PCSG 1985 
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RE: YOU BE THE EDITOR 











hate to judge or rate the articles 
per se. I feel like I’m condemn- 


I ing the writers when actually 
it’s the subject I’m knocking. 


I must say, I have not liked the last | 


two issues at all. I really found noth- 
ing (article wise) of interest. I do not 
want any programing, I’m strictly a 
user. I am not a tinkerer. I’m all 
thumbs. I’m not good at anything 
complicated. 

I’ve had my Model 100 since they 
first come out. I still don’t know how 
to use anything but the built-in word 
processor, which I use frequently. I 
keep hoping for down to earth les- 
sons on using whatis built in; on how 
to dump from Model 100 to Tandy 
1000 SX; rudimentary things like 
that. | don’t know a lot of the graph- 
ics, the key pad, telecommunica- 
tions, and so forth. 

I enjoy in depth product review 
and the ads (to learn what is new). I 
want to know about user programs 
for the 100. I want them reviewed, 
compared, explained, etc. 

Most of your writers write above 
my head. Good example: “The Scripy 
Text Processor for the 100.” Despite 
the fact that I am a user, I might have 
been interested in this article if I 
could understand it, but it was like a 
foreign language. Couldn’t it have 
said, “type in this program (illus- 
trated) and it will do such and such 
for you. Do this, don’t do that.” Tell 
me how to use the computer in plain 


_ and simple everyday English, not 


technical terms. 

I am not a dummy, but I do not 
understand technical things. I’m an 
author, I’m president of my county 
genealogical society (former realtor, 
former business woman, etc., etc., 











etc.), but I don’t cut technical termi- 
nology although I love computers. 

How about this? Are there any 
indexing programs for the 100? Is 
there any way I can gather data for an 
index on my 100 and dump it to the 
1000 SX for processing by a commer- 
cial index program? (Indexing pro- 
gram with variable format, both 
simple and complicated). 

Many of the more simple things 
you've run in the past (such as the 
article on genealogy) have been over 
simplified. That is, it was toying with 
the subject. It was a shallow program 
not worth typing in. Many of the 
basic programs are thus, just toys. 





How does one get 
“Public Domain” 
on the 100? 





How does one get “Public Do- 
main” on the 100? 

The reason I’ve never learned to 
use anymore than text on my 100 is 
that the manual is lousy. I’m sure I’m 
not the only one who found it so. 
Teach us to use the blasted machine, 
in plain language, in step by step les- 
sons if necessary. There is nothing 
wrong with being rudimentary. 
Have an elementary teacher write the 
article, not a computer whiz or any 
old author. 

Another example of gobbledy- 
gookis, “A Font for All Seasons.” This 
is another article I might be interested 
in if I could understand a word he 
was saying. (Would it be safe to as- 
sume that if you can’t pronounce the 
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name the article would be equally as 
unintelligible such as Halovacs and 
Quindry. Just kidding of course.) 

All these years I would have 
loved to have used the different fonts 
on my DMP 2100 using my Model 
100, but never could. I can’t under- 
stand the manuals and never could 
afford a program or knew of one that 
would do what I want, etc. 

But back to the article. Take the 
first paragraph—please do—I don’t 
want it. I read it three times. I under- 
stand the first half of the first sen- 
tence. What does the second half of 
that sentence say? I know what RAM 
is in a computer but not in a printer. 
Do all printers have RAM? I know 
what “typeface” means. I know what | 
“user-defined” means, but I don’t 
know what “support” means. So I 
can’t really truly know what that 
sentence is saying! What does the 
second sentence mean? And al- 
though I understand the words in | 
sentence three, I don’t understand 
the concept. Get what I’m trying to 
say? 

Paragraph two is OK. Paragraph 
three isn’t too bad. Paragraph four 
could have been omitted or should be 
written much simpler. Paragraph | 
five? It definitely needs help. If one 
can’t get through the first five para- 
graphs why read on? The author 
does get better in some places. But 
please HELP! Let's analyze fur- 
ther. Paragraph two under “Running 
Fontax” sent (once) 2. What is an 
ASCII value? (I barely know what 
ASCII really is). Whatis a “descender 
character”? What is “dot columns”? 
What does he mean by “character 
starts and ends”? In the next sentance 
what is “default characteristics?” 
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What is meant by the info in (paran- 
thesises) ? What does the last half of 
the last sentence in this paragraph 
say? The following definitions aren’t 
too bad (except the last half of the first 
one and the data under “Down’”). 


| This article might have been useful to 


me if I had an Epson printer. 

How does one program function 
keys? That’s another good topic to 
run. 

The writer Callaghan is quite 


| understandable and I just may try his 


program! (Hope it works with the 
DMP 2100!) Laster writes some 


| things that I can understand, some 





that I can’t. But I like his simplicity in 
parts. 

I'm not going to waste anymore of 
your time. I’m sure I’m in the minor- 
ity, but then, maybe there are a lot 
more out there like me who don’t re- 
subscribe because they don’t under- 
stand. 

I will be anxiously awaiting your 


| next issue in hopes of an in-depth 


review of new Tandy 1400 LT. I’ll bet 
it will kill a lot of the Model 100 
support field and possibly out date 
our 100s. 
Louise Legeza 
Conneaut, OH 

By no means are you wasting our time 
with your letter. We sift through our mail 
daily looking for helpful criticisms like 
yours. We especially appreciate your 
comments concerning the ease, or diffi- 
culty, you have understanding the article 
and its subject. 

As you are perhaps aware, CW Com- 
munications/Peterborough picked up 
Portable 100 after it had ceased publica- 
tion almost eight months before (with 
sporadic distribution before then). As a 
result, they picked up the manuscripts 
left over from the previous management 
(not the best way to get started). After 
publishing three issues (August, Sep- 
tember, October 1987), they started re- 
ceiving new manuscripts, as word they 
were in business spread. Then, starting 
with the January issue, we took over. 

Now manuscripts are flowing in 
daily. Plus we have contacted several 














magazine (PICO) and assigned reviews. 
As a result you should see a rather rapid 
increase in quality of writing and reada- 
bility in Portable 100’s articles. 

We will certainly take your com- 
plaints and suggestions on improving 
our articles to heart, and strive to make 
them as clear and concise as possible. 

While many of our readers are techni- 
cally inclined, and/or very interested in 
programs, you are definitely NOT in the 
minority in being a novice and wanting 
articles explaining how to use your com- 
puter more efficiently. There are thou- 
sands of people just like you, but who are 
afraid to write because they fear their 
questions are “dumb.” questions. 

Now for some of your questions. First, 
I’m not sure exactly what you mean byan 
indexing program. Linda Tiernan, one of 
our editors and the Assistant Director of 
the Peterborough Town Library, is a 
professional cataloger. She simply uses a 
word processor to create an index, using 





There are no 
“dumb” questions. 





the FIND function to help insert items in 
alphabetical order. She says the hardest 
part of indexing is determining the 
“keywords” to use for the index. Once 
you have these, creating the index is just 
a matter of putting the entries under the 
appropriate keywords. 

Getting the index out of your Model 
100 into your desktop is just a matter of 
using TELCOM on the Model 100,a null 
modem connector (available from 
Tandy), an RS-232C cable, and some 
type of communications program on the 


_ desktop (such as Crosstalk, XMODEM, 





or PC-Talk). 

Public Domain software is software 
that is not copyright protected. Getting it 
in your computer is simple, just use your 
computer's TELCOM and built-in mo- 
dem to calla Bulletin Board Service and 
then use the DOWN command to save 
the programs and files you find in the 


| Model 100’s memory. 








authors we have used with our other 








| 








Sorry about all the problems you had | 
with the “Font” article. We'll fix that in 
a future article for you. 

Having seen the Tandy 1400 LT, it | 
isn’t byany means a Model 100 “killer.” 
It is designed for the MS-DOS market 
and is pretty hefty at 14 pounds weight 
and a $1,599 price tag. 

Eds. 


GRAPHICS SCREEN DUMP 

I’ve had my Model 100 for several | 
years and use it for many applica- 
tions. The primary use is for schedul- 
ing my horse shoeing business, for 
which it is well suited. 

One thing I haven't been able to 
find is a graphics package or a screen 
dump utility that would work. In the 
old magazine, I wrote to all the ad- | 
vertised graphic’s vendors but never 
received a response. So...the ball is in | 
your court. 





Jim Weaver 

Wellsboro, Pa. 

Ultrasoft Innovations, one of our 

advertisers, has a screen dump program 
for the Model 100. 

Eds. 


ANY BACK ISSUES? 

Just a quick note to pass on my 
new address and to congratulate you | 
on the comeback of Portable 100 with 
the August issue, hoping that all fu- 
ture issues will carry on the same 
standard. 

I have used a Model 100 for three 

years and encountered the software 
penury and support. I must confess — 
that when “Portable 100” did its dis- 
appearing act earlier this year (1987), 
I was forced, directly do to this, to 
rethink the viability of carrying on 
using the Model 100 altogether. It 
would be a somewhat difficult task 
without your help. Fortunately 
enough (due to lack of funds!), I stuck 
with my Model 100 faithfully. That 
was just as well, now that Portable 
100 is back for good. 

I like your magazine a lot. Portable 
100 has beena unique source of infor- 
mation. I was a very late bloomer to 
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its existence (January 86). I would 
like to purchase some back issues and 
would be grateful if you could quote 
me the price of back issues and the 
price of back issues via surface mail 
to Europe. Also the price of surface 
mail to an address in the USA. It 
might be worthwhile, cost wise hav- 
ing them sent to a friend who lives in 
the US. Do you still have all of the 
1985 issues? 

PS: I have found that some of the 
programs you printed in the past, I 
haven't been very successful with, in 
spite of thorough list typing. So I 
send you a listing for one, that I have 
been using for all costing, it only 
works with “CAPS LOCK” down. 

Jean-Luc Michaud 
Chertsey, England 

Thanks for your support. As for back 
issues, we sorry to report that we only 
have September, October, November, 
and December 1987 available. All the 
previous issues, except August 1987, 
were impounded and destroyed by the 
printer in Camden, Maine. Should we 
_ come upon a stock of these that somehow 
| managed to survive, we will make them 
available to our readers. 

In the meantime, our technical editor 
is looking at your printout trying to find 
the problem. 





Eds. 


SOME MORE SUGGESTIONS 

I was overjoyed when I saw Port- 
able 100 Magazine on the shelf of my 
local bookstore. It was great to see it 
on the shelf amongst the 500 different 
magazines of those self proclaimed 
#1 desktops that you can’t take any- 
where unless you own a wheel bar- 
rel. Well, you know I snatched one up 
and rushed home to see what was 
inside. I was up most of the night 
typing in the programs, reading and 
just having a ball. I love the article 


fair comparison. I do hope you don’t 
change the name to Portable 102, it 
just doesn’t have that ring to it, you 
know! 

Well, I just got this month’s issue, 
and I had another great time absorb- 








Model 100 vs Model 102. Itwasa very | 


ing all the fantastic articles in it. This 
month though I decided to cut out the 
middle man in this ritual and sub- 
scribe to Portable 100. I figure l'll save 
$25.00 just in gas driving to the book- 
store to see if the next issue is in. This 
way I'll only have to wait for the mail 
man. I hope I can handle the sus- 
pense. 

Anyway in both issues you 
wanted some input from your read- 
ers. Well, here’s some input. First, I 
know you and your staff have proba- 
bly already thought of everything I 
am going to suggest, but I thought 
maybe you would like to know if you 
are right about what we readers 
want. So here comes from one fan the 
most wanted services you could pro- 
vide. 

1. Now this is real nit picking, but 
how about some slashes on the zeros 





I was up most of 
the night typing in 
the programs 





in your program listings. This would 
help novices avoid errors, and help 


pro's keep their speed up when typ- | 


ing in the listing. 

2. Another good idea is the sample 
display you had in the Crazy Box 
article. It wouldn’t hurt to have one 
for every program in the magazine. 

3. You could, of course, avoid all of 
that by instituting a tape/disc of the 
month program. 

4. You could also list all BBS carry- 
ing Portable Disk Drive software for 
Model 100/102, 200, 600, or start your 
own. 

5. Expansion of I/O will happen 
anyway, so it's redundant to mention 
that. 

I know all of these services cost 
more than I could imagine, but I think 
you would agree, the more you sup- 
port us the more we will support you. 











I know after looking through a Port- 
able 100 magazine, a few of those 
desk bound people should go into 
their closet and get their Model 100 
out of moth balls. They should re- 
discover just how powerful it is, and 
how much they took it for granted. 

I'll close with a question. I typed in 
LOADIT.BA and tried to run it, but I 
just couldn’t get the program to run 
right. I don’t know what the problem 
is. I've checked my data lines and I 
can’t find an error. I am using one of 
the new portable disc drive twos 
from Tandy. Is there a difference 
between one and two? I appreciate 
any help you could give me on this 
matter. 

Well, keep up the good work, and 
I'll be looking for my first issue in the 
mail soon. Hope I can wait. 

Terry Miller 
Mattoon, Il 

We'll see if we can get the program 
listings to come out with slashed zeros. 

We try to get sample displays of the 
programs, but that isn't always possible. 

We are considering instituting a 
monthly programs disk, but haven't fin- 
ished the cost/benefit analysis yet. 

We do have a BBS of our own, unfor- 
tunately it is suffering from a blown 
power supply. When we have it back on 
line we will give you full details of what 
it has and how to access it. 

The Portable Disk Drive One and the 
Portable Disk Drive Two are very differ- 
ent animals inside. In most cases, you 
don’t notice the difference. Unfortu- 
nately, LOADIT.BA is one of the pro- 
grams that is affected by the difference. 

And thanks for writing. 


PEEK 63066, POKE 63066 

It’s great to see Portable 100 back 
again. I subscribed just before the 
magazine's last publisher went the 
way of the woolly mammoths. Now 
that the publication is back, I’ll re- 
lease some pent up demand for infor- 
mation: In the March 1986 issue, A.L. 
Zeichick presented TELCOM.BA to 
toggle the LF on the Model 100. 
However, there seems to be an error 


Eds. | 
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in the listing: the program PEEKs 
63066, and POKEs 63033. Shouldn't 
| these both be the same location? I 
tried POKEing only the location that 
returned a 1 or0 on the PEEK, but 
to no avail. 

Along the lines of the last ques- 
tion, is there a way to have TEXT’s 
built in PRINT function send LFs as 


well? I’ve nearly worn out the DIP | 


switch on my printer at work! 


SCRIPY.CO looks like a wonder- | 


ful program, but it doesn’t help those 
of us with serial printers and no as- 
sembly language experience. Could 
T.L. Quindry or anyone on your edi- 
torial staff suggest the modifications 
needed to print to the COM port? 
Will back issues of Portable 100 be 


available? The March 1986 issue had | 


an enhancement for a previously 
published calendar program, but 
alas, I have no access to the earlier 
program. 

Finally, I would like to make sug- 
gestions for two major reviews in 
upcoming issues. First (if not already 
available), I would like to read a 


| comparison of the two major multi- | 


program ROMs: Ultimate ROM II 
and Super ROM. I have heard won- 
derful comments about the text proc- 
essor in the former and the spread- 
sheet in the latter, but would like to 
know more before taking the plunge. 
Will either one be offering a DOS as 


well? Second, with the increasing (?) | 


| number of options for expanding 
| memory, now seems a good time to 
compare bankswitched memory 
with virtual memory approaches 
such as Booster Pack and Megamem- 
ory. I plan to use the Model 100 for 
extensive note taking and may not 


need the virtual memory solution, | 
but then again... What are the trade | 
offs between these two types of | 


memory units (e.g., cost, size, 
weight)? 
I look forward to many more years 
of Portable 100s! 
Roy W. Reese 
Brooklyn, NY 
You are correct, you should be PEEK- 
ing and POKEing location 63066. 











Correcting TEXT to add the linefeed 


requires a short machine-language pro- 


gram that you must load into high RAM, 


just below MAXRAM. We'll be publish- 


ing an article on that shortly. 

As for changing SCRIPY.CO for the 
RS-232 port, we'll see what we can work 
up in the near future. 

As we mentioned earlier, backissues 
prior to September 1987 are not available. 
Sorry. 

Both ROMs are so large that a single 


review would take most of the magazine. | 


We'll tackle them one at a time ina future 
issue. The PCSG ROM offers the ability 
to automatically load the Tandy DOS 
from Disk by pressing the F7 key. Travel- 
ing Software includes a function to load 
their TS-DOS off your disk drive (if you 
have TS-DOS, that is). 

We have plans for reviews of the vari- 
ous add-on memory devices. Please be 





The PCSG ROM 
offers the ability 

to load the Tandy 
DOS from Disk 





patient. 
Eds. 
MODEL 100 LAZY WRITER 
While on the subject of Model 100 
communications, it seems appropri- 
ate to mentiona perfect fit for upload- 


ing files and downloading files: The | 


Model 4 or 4P, using the word proces- 
sor, Lazy Writer, written in Multidos 
3.4C or 3.5. 

For those not familiar with this 
application, it is quite simple to use, 
comprehensive, and in Multidos 
makes use of the Model 4 utilities, 


despite the fact that Multidos Is a | 
Model II]-emulating Disk Operating _ 


System. Lazy Writer in this mode has 


the simplest two key communication | 


protocol. (On the other hand, Lazy 
Writer on Trsdos 6. must use the 
comparatively complex comm pro- 
gram of Trsdos 6.-). 





On Multidos or Lazy Dos (an 
abortive form of Multidos), commu- 
nications between Model 4/4P and 
Model 100 require a null modem and 
about 20 seconds to set up. The ASCII | 
text loads into memory, and can be 
accessed by Lazy Writer which for- 
mats it automatically. The only 
changes are to create paragraphs, 
which Lazy Writer indicates but does 
not format. This provides formatted 
text in an excellent word processor, 
evades the usual problems of termi- | 
nal programs, and releases precious 
space in the Model 100 to create per- 
manent disk files in Lazy Writer. 

For those of you lucky enough to 
have a model 4/4P and a Model 100, 
the investment in Lazy Writer is a 

must. 
Dr. Charles Harris 
Island Heights, NJ | 

We were unaware that Lazy Writer 
and the Model 4P made such a great 
support team for the Model 100. 
Thanks for writing. 


THANKS 
Thank you for publishing Port- 


| able 100. 


Iam retired and have a Model 100 
which I am attempting to learn to 
operate effectively and efficiently. 
Up until now I have purchased PCM 
or 80 Micro magazines in the hope 
that there would be good articles for 
the Model 100. And nowadays there 
aren't many! 

I expect to subscribe to your | 
magazine in the near future after I | 
move to a new address. 

Thanks again for producing the 
Portable 100 magazine which will 
(hopefully) help me learn more 

about operating my Model 100. 
Jane Marvin 
San Francisco, CA 
We appreciate your support. If you 
have any suggestions please tell us. 
Eds. 
m) 


E 
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Laptops In The Field: 
A Health Survey In Rural Haiti 


These programs provide an in-the-field solution 
to data gathering and verification. 


by Kelly, Musgrave, and Allman 











ocial science researchers 

working in third world field 

settings face a variety of prob- 
lems which make gathering data a 
difficult task. The working condi- 
tions, available labor and logistical 
considerations combine to make ac- 
curate, timely, inexpensive data col- 
lection nearly impossible. In an effort 
to provide improvements in expen- 
sive, labor intensive, and often inac- 
curate survey methods, we have 
been working on techniques which 
provide alternative strategies for 
these problems. One result is a series 
of programs which can be used in 
any setting where fields of data need 


| to be entered and verified, even if 


your computer store is only 1 mile 
away instead of 1,000. 


FIELD CONSIDERATIONS 

We recently conducted a survey 
to determine early childhood mor- 
tality rates as part of the evaluation of 
a primary health care program in a 
rural area of Haiti with a population 
of 50,000. An important innovation 
of the study was the use of a lap-top 
computer at a field office site as an 


| aid to data entry and supervision. 


The considerations which lead us 


| to the strategy that we finally chose 


| include: 


e Inhospitable field conditions—hot, 
humid and dusty, with long dis- 
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Figure 1. Program flow chart for data entry and consistency checking system 
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tances to be walked by interview- 
ers and unreliable or non-existant 
power supplies; 

e although well qualified staff are 
available for supervision, the 
need to have mature women inter- 
viewers of local origin to improve 
interview interaction, resulted in 
potential interviewers of limited 
educational background; 

e the need to generate results as 
quickly as possible; 

e a tight total program budget, with 
any funds used for the survey 
research therefore not being avail- 
able for service operations; 

e a desire to improve data quality, as 
several recent surveys on mortal- 
ity have had many cases with in- 
consistent responses and overall 
patterns of responses which indi- 
cated that some births and deaths 
were not being reported. 





These programs 
have great 
flexibility 





The system which we chose is a 
combination of the Tandy (Radio 
Shack) Model 100 or 102 with some 
accessories (32K RAM is convenient, 
but not essential), a series of pro- 
grams for data entry and checking, 
and the preceding births technique 
of mortality estimation. Certainly 
more “powerful” systems are avail- 
able for use on PC compatibles, but 
the expense and technical require- 
ments are also much greater. 


` THE PROGRAMS 
These programs have great flexi- 
bility, yet small compartmentalized 
functions which preserve precious 
free memory. Only two, DATA and 
LIST, are run “as is” for the actual 
data handling. The others are used in 
| the set-up phase to write the files and 
| programs that are specific for your 




















"VAR" 


1 V=M(I):PRINT"CHANGE VAR"I"FROM ("M(I)3: 


10 CLS:INPUT"YARIABLE NO. ”; I: 
| 





NAME YOUR VARIABLES by PATRICK KELLY 
BEEP: PRINT"BEGIN WITH A LETTER": RETURN 
B=VAL (MID$(M(I), 1))>9: IFB=-1 THENGOSUBS 
RETURN 
IFM(1)="END"THENA=I-1;C=A: GOTO2Z1ELSEQ="":INPUT"SET LIMITS 
(N/Y) "; Q: IFQ=""ORQ="N"ORQ="n" THENTELSES 

R(I)=0:$(1)=0: RETURN 

INPUT "MINIMUM"; R(I) : INPUT"MAXIMUM";S(I):IFVAL(S(1) )<VAL(R(I) 
THENBEEP: GOTOSELSERETURN 

FORJ=1T0500; NEXT : RETURN 

IFIDAORI< {1 THENBEEP: PRINT: PRINT" YOU 

HAVE "A"VARIABLES": GOSUB9: GOTO10 

INPUT") TO" MI) :T="":; 

GOSUB4: IFB=-1THENM (1) =V: GOTO41ELSEGOSUBE: RETURN 

CLS:D=1:FORI=1T0A:E=(I/7/0=1):PRINT"VAR"I"= "M(I);TAB(18); 

"MN= "R{I);TAB(28);"MX= "S(I):IFE=-1THENINPUT"C)ONTINUE 
S) TOP"; V: DD+: CLS: IFV="S"ORV="s"THENV="" : RETURN 

NEXT: RETURN 

CLS: CLEAR1024:DEFINTA-E:DEFSTRM-W:FILES:PRINT 

INPUT"VARIASLE FILE";P:IFLEN(P)>4THENBEEP: GOTOIS 

CLS:P=P+"/V":N=", ":0="PL":OPENPFOROUTPUTAS1 : INPUT"MAX, NUMBER 
OF VARIABLES"; A:DIMM(A) ,R(A) ,S(A) 

PRINT@AQ, "CODE FOR MISSING VALUES":PRINT"(IF YOU DON’T WANT ONE, 
TYPE X)":PRINTG63," "s:INPUT"";U:PRINT:PRINT"CODE FOR QUESTIONS 
NOT APPLICABLE": : INPUT" "sW: IF (W=U) K(W4>"X") =1 THENCLS: GOTOL7 

FORI=1T0A:C=C+i:CLS:PRINT"TYPE END TO EXIT" 

PRINT"VAR"I;:INPUT"= ":M(I}:GOSUB4: IFB=-1THEN9 

GOSUBE : NEXT 

INPUT"RJEVIEW C)ORRECT S)AVE";T:IFT=""ORT="R"ORT="r"THENGOSUB12: ai 

IFT="C"ORT="c"THENGOSUB10; GOTO21 

IFT="S"ORT="s"THEN24ELSEBEEP: CLS: T="";GOT024 

PRINT#, MID$ (STR$(C) , 2) +NFU+NW: FORI=1 TOA: PRINT#HS ,M(I)+N+R(I) +N4S(1) 
NEXT: CLOSE: CLS: PRINT@130, P" SAVED": BEEP: GOSUBS: MENU 

















Listing 1. VAR allows you to name the variables you'll be using in this system. 


m 


"CWRITE" 


a 


-voun MPW 





‘CONSISTENCY CHECKING PROGRAM WRITER - MARIE FRANCE LAFONTAINE 
& STAN MUSGRAVE 

CLS: CLEAR1Q@24, MAXRAM: MAXFILES=2: DEFSTRM-W: DEFINTA-L: FILES: PRINT 

INPUT"VARIABLE FILE"; M:N=Mt"/V":O0=M+"/C,DO":PSM+"/L":C=10 

CLS: OPENOFOROUTPUTAS2: PRINT#2, "1 ONERRORGOTO2: KILL"; CHR$ (34) ;0 

GOSUB19: OPENNFORINPUTAS1: INPUT#1,A,B,D:Q="" | 

E=300:PRINT#2, "35 DIMV(";MID$(STR#(A),2);") "sPRINT#2,E"FORF=1T0"; 
MID$(STR$(A),2) 3": INPUT#H1,V(F) :NEXT":E=E+4 

CLOSE1: OPENPFORINPUTAS1:Q="";CLS 

IFEOF (1) THEN GELSEG=G+1:PRINTG@130,6 

INPUT#1,M,R, WS 

IFLEN (M) >OTHENQ=Q+M 


@ IFLEN(R) >OTHENI=1+1:S=S+R+", ":Q=Q+" THEN J=J+i:B8$(J)= 


AS("4+MID$(STRE(I),2)+")": T=": "ELSET=" THEN " 


41 IFLEN(S) S9@THENC=C+1:S=LEFT$(S,LEN(S)-1):PRINT#2,C"DATA "S:S="" 
12 IFVAL(W)<3@QANDVAL (W) <>OTHENW=STRS (E+VAL (W) +1) 


IFW="END"ORW="FIN"THENW=STR$ (700) 


14 IFVAL (W) SOTHENQ=Q+T+"GOTO "+W 


PRINT#2,E;Q:Q="";E=E+1;GOTO7 


16 CLOSE1: IFID{@THENPRINT#2, 1@"DIMA(";MID$(STR$(I),2)"), 


A$ ("MIDS (STR$(1),2)")" 

IFLEN (S) >OTHENS=LEFT$(S,LEN(S)-1) :PRINT#2,C+1 "DATA "S 

PRINT#H2, C+2"FORK=1T0";MID$(STRE(1I),2);"sREADAS(K) :NEXT": 
CLOSE2: PRINT@13@, "TYPE SAVE"+CHR$ (34) +LEFT$(0,LEN(0)-3) :LOADO 


19 PRINT@13@, "WORKING... ":OPEN"CLINES, DO"FORINPUTAS? 
20 LINEINPUT#1,M: IFEOF (1) THEN22 

|21 PRINT#2,M:GOTO2@ 

22 CLOSE1:RETURN 





Listing 2. CWRITE creates a program that checks your data for internal consistency. 
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data fields. 

The programs, written in BASIC, 
work asa series of steps that progres- 
sively handle the survey informa- 
tion. Figure 1 shows how the pro- 
grams relate to each other in the 
process of variable coding, data en- 
try and error checking. The pro- 
grams are given in listings one 
through five. As the programs run, 
they providea series of simple screen 
prompts which should be sufficient 
to operate the programs. They are 
designed for use by personnel with 
little or no prior computer experi- 
ence. A detailed instruction manual 
which explains all the permutations 
and possibilities, common errors, as 
well as the programs on tape or disk, 
is available from the authors for 
$9.00. The programs are also avail- 
able with French screen prompts. 

After you have created a question- 





The programs 
provide a series 
of simple 
screen prompts 





naire with an associated list of vari- 
ables, codes, limits and logical rela- 
tions, the first program (VAR, short 
for variable creation) takes this infor- 
mation to create a file QQQQ/V, 
(where “QQQO” is up to 4 characters 
of your choice, enter only the 
“QQQQ,” the program will add the 
“/V") which names the variables 
and the ranges that will be accepted 
for them (e.g. 14-54 for maternal age). 
The name can even include a brief 
form of the question to be asked, as 
this “name” will be what appears as 
the screen prompt in the data entry 
program. Line 16 requests the num- 
ber of variables or an estimated 
maximum in order to dimension an 
array. Line 17 requests values for 














@ ‘CONSISTENCY CHECKING, 
2 CLS: CLEAR1@24,MAXRAM: MAXFILES=2:; DEF INTA-K: DEFSTRM-P 

25 FILES:PRINT: INPUT"DATA FILE “;M: INPUT"ERROR FILE";N:CLS 
20 OPENMFORINPUTAS1 : OPENNFOROUTPUTAS2 


MARIE FRANCE LAFONTAINE & STAN MUSGRAVE 


32 PRINT#2,M:PRINT#2, "":PRINT#2, "CASE 
40 IFEQF (1) THENB@GELSEA=At+1: PRINTG@G12¢,4 
5@ INPUT#i,B 


VARIABLES TO VERIFY"; PRINT#2,"" 


780 O=STR$(B) 

719 FORK=1TOJ:Q=0+" "+BS(K):NEXT 
720 IF JOOTHENPRINT#2,0;C=C+i: J=0 
7230 GOTO4@ 


200 CLOSE: IFC=@THENPRINT@13@, "THE DATA IS CLEAN": BEEP:N=N+", 
="CASES TO VERIFY" 

CLS:PRINT@130, "THERE ARE ";C;P:S8EEP: BEEP: BEEP 

850 FORE=1T0500: NEXT: MENU 





DO"; KILLN: GOTO8Se 








Listing 3. CLINES contains the code read and used by CWRITE. 





"DATA" 

@ ’ DATA ENTRY - PATRICK KELLY 

2 CLEARIQ24: GOTO20 

3 IFA=4THENS 

4 FORI=1TOB:PRINT#1,M(I-1)+S4; : NEXT 

5 PRINT#1,M(B8) :RETURN 

6 CLS: INPUT"VARIABLE NO. ";1: IFIZAORI<{THENBEEP: PRINT: PRINT "YOU 
HAVE "A"VARTABLES": FORI=1T0500: NEXT: GOTO6 

7 PRINT"CHANGE VAR"I"("N(I-1)") FROM "M(I-1)" TO ";:LINEINPUT""; 
M(I=1) :Q=""s;RETURN 

8 CLS:D=1:PRINT"CASE #"C:FORI=1TOA:E=(1/6/D=1) :PRINT"VAR"I" ("N(I-4)") 
=";TAB(12+F) ;M(I-4) 

9 IFE=={THENINPUT "C) ONTINUE S)TOP";2:0=D+1:CLS:PRINT"CASE #"C: 


IFZ="S"0RZ2="s"THENCLS: RETURN 
10 2="";NEXT: Q="";RETURN 
11 KEYSTOP: CLS: FILES; PRINT: INPUT"VARIABLE FILE";P: IFRIGHT$(P,2)= 
"/V"THENBEEP: GOTO4 1 
12 RETURN 
13 GOSUB11 
14 INPUT"DATA FILE";P41: IFLEN(P1) 
15 GOTO22 
16 G=1:GOSUB11 
17 INPUT"DATA FILE (3 LETTERS) ";P1: IFLEN(P1)<>3THENBEEP: GOTO17 
18 INPUT"NUMBER OF FIRST CASE";¥V: IFV=""THENC=@ELSEC=VAL (V)-1 


19 GOTO22 
DEFINTA-L:OEFSTRM-Z:CLS:Si=", ":LINE(20,20)-(224,34),1,B:PRINT@i24, 


=STHENBEEP: GOTO14 


a OF A DATA FILE": KEYON: PRINT@280, "NEW CONT"; :ONKEYGOSUB16, 13 


21 GOTOo2 
T=", 50": UsP1;P=P+"/V":P1=P1+T:CLS: OPENPFORINPUTAS1: INPUT#1,A,H,Hi1: 
B=A-1; OIMM(B),N(B),0(8),R(B),S(B) :F=0:FORI=1TOA: INPUT#1,N(I-1), 
R(I-1) ,S(1-1) }L=LEN(N(I—1)) : TFF<LTHENF=L 

23 NEXT: CLOSE: ONERRORGOTO42; IFG=Q@THENOPEN"T"FORINPUTAS1: FORI=1 TOA: 
INPUT#4,M(I-41) : NEXT: CLOSE 

24 OPENP1FORAPPENDAS1: IFG=1THEN26 

25 C=VAL(MID$(P1,4,3)) 

26 CLS:C=C+i:PRINT"CASE #"C:FORI=1 TOA: K=(1>6) :Ki=(1=6) :J=1: IFI>7THENJ=7 

27 PRINTG4@kJ, "VAR"I"("N(I-1)") ="s:O(I-1)=""sPRINTG@LO+F+40kT, "";: 
LINEINPUT""; O(I-1) : IFR(I- 1) ="PL"ORVAL (O(I- 1))=HORVAL (O(I-1))= 
HiORO(I- 1)=""THENG2 

28 IFVAL(O(I-1) )<VAL(R(I-1) )ORVAL(O( 1-1) ) SVAL(S(I-1) ) THEN29ELSE32 

29 BEEP: W="":INPUT"OUT OF LIMITS..IS IT CORRECTE (N/Y) ";W:IFW= 
"Y"ORW="y"THENPRINTG@4Ox (J+1it2xK+K1) , STRING$(39," ")ELSES1 

30 GOTO32 

31 PRINT@4O0x (Jt2xK+K1) ,STRING$(39,"_ ") :PRINTSTRING$(39," "):GOTO27 

z AE SANAAA E NENA A E EA y BUERNE EETA EE omen eR 

34 Q=""; INPUT"R)EVIEW A)DD C)ORRECT S)AVE";Q: IFQ=""ORQ="R"ORQ="r"THEN 
GOSUBS:; GOTO34 

35 IFQ="A"ORQ="a"THENS® 

36 IFQ="C"ORQ="c "THENGOSUB6: GOTO34 

IFQ="S"ORQ="s “THENSBELSEBEEP: CLS: GOTO34 

38 IFC<1@THENZ="006"; GOTO40 

39 IFC<1@@THENZ="9"ELSE2="" 

40 X=STR$(C) ;X=MID$(X, 2, LEN(X) ) ; Y=Xi X=2+X+91: PRINT#1, X; : GOSUBS;: 
IFQ="A"ORQ="a"THENZS 

41 CLOSE: U=LEFT$(U,3)+Y+T: NAMEP1$ASU$: OPEN" T "FOROUTPUTAS 1: GOSUB3: 
CLOSE: CLS: PRINT@130,U" SAVED": BEEP: FORI=1T0500: NEXT: MENU 

42 RESUME24 

50 IFFRE(®) >350THENSSELSECLS: SOUND75@, 59:Q="S":PRINT@124, "OUT OF 
MEMORY": SOUND759, 199: GOTO38 








Listing 4. DATA is the main data entry program. 
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special codes that you may want to 
use for missing values and questions 
that are not applicable. They would 
be out of range values such as “-9,” 
yet still are accepted by the data entry 
program. 

It is important that the character- 
istics recorded in different variables 
for one case be internally consistent. 
In our work it is not uncommon to 
have two children of one mother 
reported (impossible as it may be) as 
having birthdates only 5 months 
apart. Similarly, a forester might 
have a tree reported as having a 
height which is impossible for that 
species. Therefore the logical rela- 
tions among the variables are then 
written using the TEXT editor, in a 





It is important 
that the variables 
be internally 
consistent. 





file (call it QQQOQ/L) using a slar- 
dardized format which allows 
branching and the inclusion of a 
“message” to describe which vari- 
ables need verification. For each logi- 
cal relation, this format is: 


1) the logical condition written as; 
A) an ‘IF “condition” statement, 
or s 
B) an ‘IF “condition” THEN “ac- 
tion” statement, or 
C) a mathematical statement, 
-where any data variables are 
referred to by their number 
as ‘V(n)’, and memory vari- 
ables ‘AA’ to LZ’ are legal, 
-followed by a comma and 
2) a message text if desired, followed 
by a comma and 
3) a number of lines to skip, if de- 
sired. 








‘PRINT DATA - PATRICK KELLY 

GOTOA 

DIMNA), O(A), B(A) :0(@)="3":RETURN 
IFRIGHTS (M, 2)="/V"THENBEEF : GOTO4 

M=M+"/V": Q=LEFTS 


CLOSE: GOSUB3: TE LEN(YM$) : 
RESUMES 


Duy AA wh Ss 


NEXT: GOTOS 
RESUME 12 


oaa ppa 


LESS, PLEASE": GOSUBS@:GOTOL4s 
D=3: OPENRFORINPUTAS! 
PRINTGAQ, 


GOTOL7 

edie "LAST 
F=VAL (Y 
22 GOT020 


KOQUuUONM FWMeo 


POG ee 


24 IFK>@THEN2ZE 
25 INPUT#1,K: CLOSE: OPENRFORINPUTAS1 
26 PRINT@120, "FIRST CASE"; : INPUT"" 


28 GOTO26 


J=VAL (Z) :GOTO32 


31 GOTO29 


33 LPRINTMIO$ (STR$(F),2): IFG=KTHENSS 
34 FORI=KTOG-1; Pet et Vs NEXT 
35 ONERRORGOTOSS: FORL=GTOT 


37 LPRINTN(F) : NEXT 


IFW="Y "ORW="y"THENG® 
39 G=Q+". 00": KILLQ: MENU 

40 Sa": TSM Ve""sVis"":2="":GOTOLd 
50 FORJ1=1701000: NEXT: RETURN 

Si BEEP:CLS:PRINT, 
52 RETURN 





CLS:CLEARS12:DEFINTA-L:OEFSTRM-2: FILES: INPUT “VARIABLE FILE"; M: 
INPUT"DATA FILE a IFLEN(R)<4THENBEEP: GOTOS 


R,3i+"/P":OPENMFORINPUTAS1: INPUT#1,A,NS, VMS: 
ONERRORGOTO? :OPENQFORINPUTAS! :GOTO12 


CLOSE: OPENQFOROQUTPUTAS1 :PRINT#1,A:FORI=1TOA:PRINT#1,8(1) 
INPUT#1, A: FORT=1 TOA: INPUT#1,B(1) :NEXT; CLOSE 
CLS:LINEINPUT "TITLE: ";S: IFLEN(S) SSSTHENBEEP: PRINT"32 CHARACTERS OR 


"FIRST VARIABLE"; : INPUT" "; Y: IFY=""THENE={: PRINT@S@, E: GOTO29 
E=VAL(¥1; IFEC{ORE>ATHENGOSUBSLELSESS 


VARIABLE"; : INPUT" "; Vis IFY¥1=""THENF=A:PRINT@98, A: GOTO23 
) : TFFCEQRF >ATHENGOSUBSLELSE22 


23 FORI=ETOF: D=D+8(1)+4:NEXT: IFDX8STHENLPRINTCHRE (27) 
sTiIrtTs*" 
27 G=VAL(T) : IFG<KORGOVAL (MIDS (PR, 4) } THENGOSUBS1ELSE29 
29 PRINTGL6@, "LAST CASE"; :INPUT"";2: 1FZ2=""THENZ=MID#(R, 
30 J=VAL(2Z) 1IFI>VAL (MIDE (R, 4) )ORISGTHENGOSUBSIELSESS 


32 LPRINTS:LPRINT"C\Y "3: IFESFTHENSSELSEFORI=ETOF-1:H= 
U=MID$ (STR$(1),2):LPRINTU; SPACES (B(1) +H) } :NEXT 


36 FORI=1TOA+{: INPUT#1, NU- 1) :NEXT:LPRINTN(0)+" "ye 
FORI=ETOF-1:; LPRINTN(I); SPACE$((B(1)+1)- LEN(N(1)))¢:NEXT 


38 CLOSE:LPRINT:LPRINT:LPRINT:CLS:W=""s INPUT"PRINT AGAIN? 


"THAT IS NOT POSSIBLE": GOSUBSO® 


CLS: FORI=1T04:B (1) =MW%: NEXT: OPENRFORINPUTAS1 i 
ONERRORGOTOI 1: INPUT#1,O:C=C+1:PRINTG128, C:FORI=1 704: INPUTHI,O( Ti: E 
TFB{T)<LEN(O(1} ) THENB(I}=LEN(O(T}) 


NEXT: CLOSE: GOTO1L4a 


CHR$ (77); 


"THENG=K : PRINT@132,G:G60T029 


A); PRINT@173, 2: 


(139): 


IFE=FTHENS7ELSE 


(N/Y) "Wi 








Listing 4. LIST sends your variables list to a printer so you can proofread them for typographical errors 


and other mistakes. 


As an example, we wanted to 
confirm that the birth and death 
dates of children have a logical order 
so that the child is not reported as 
dying beforeit was born. If the month 
of birth is recorded in variable 4, the 
year of birth is variable 5, the month 
of death is in 6 and the year of death 
is in 7, then the expression IF V(4)+ 
V(5)* 12> V(6)+ V(7)* 12, DATES 
REVERSED, 3 contains information 
which will cause the birth and death 
dates to be compared. ‘This is tol- 
lowed by the message to be recorded 
if the condition is met (that the dates 
are reversed) and the number of fol- 
lowing lines of consistency checking 
to be skipped. 

This same mechanism can alterna- 
tively be used to pick out cases which 
meet certain criteria. You would 








have it examine the data for the spe- 
cific criteria which you wish to iden- 
tify. It would then print out a list of 
these cases. 

A second program (CWRITE) 
takes the variable and logic files and 
writes the program lines necessary 
to perform the consistency checking. 
It merges the lines from (CLINES), 
writes it into a document file 
(QQQQ/C), loads and runs it. This 
erases the document file and leaves 
you with the consistency checking 
program. 

A third program (DATA) takes 
the output of the variable definition 
program and uses it to enter the data 
into a data file, (“XXXNNN.DO,” 
where “xxx” is an abreviation of 
your choice and “nnn” is the number 
of cases in the file.) It checks the data 
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against the specified range and al- 
lows correction of mistakes. 

The data file may be used in three 
ways. The first is as input in the con- 
sistency checking program (QQQQ/ 
C) which checks for logical errors in 
the data. The output of this program 
is a document file “EEEEEF.DO” 
where the numbers of the cases with 
variables to be confirmed are re- 
corded along with the descriptive 
message. These may then be re- 
viewed by the supervisor and inter- 
viewer and accepted, corrected or 
listed for re-interview. 

Second, the data file may be 
printed (by LIST) so that the values 
may be proof-read for typographical 
errors or checked further by the 
supervisor for cases which need re- 
interviewing. Line 23 in LIST ends 
with “LPRINT” and a control code 
for condensed print. You should 
substitute the code appropriate for 
your printer. 

The third use of the data file is as 
the input for analysis. This can occur 
at any stage of the above process. It 
can be done with separate programs 
which run on the Model 100-102 and 
transtorm or sort variables, generate 
frequency distributions, means, 
medians, standard deviations, histo- 
grams, etc. Alternatively, a copy of 
the file can be sent directly by cable or 
indirectly via diskette or cassette to 
another computer capable of morc 
sophisticated analysis. 


THE SYSTEM 

The use of this system was chosen 
because of the way its features re- 
spond to the problems posed above. 


e The Model 100/102 are small, light, 
inexpensive, yet highly capable 
machines with a history of de- 
pendable service under rough 
conditions. 

* The programs are designed to be 
flexible and user-friendly. They 
provide screen prompts which 
lead the user through the pro- 
grams. They are designed in sec- 
tions which serve distinct func- 





tions and which are easily re-used 
and tailored to fit many different 
sets of variables and data. Yet for 
actual data entry only a minimum 
needs to remain in RAM. 

e The training requirements are low. 
We elected to have our interview- 
ers record their findings on paper 
forms. They transferred the data 
to computer files with the supervi- 
sor or assistant in one process 
which could simultaneously en- 
compass data coding, entry, veri- 
fication, and supervisory review. 
This had the added benefit of 
eliminating the time, labor and 
financially costly separate steps 
traditionally used to get the data 
“into shape” for analysis. 


Our supervisors had no prior 
computer experence. In order to use 





Our supervisors 
had no computer 
experence. 





the data entry programs, they were 
given training in the general use of 
the Model 100/102 and program 
specific skills. This consisted of four 
two-hour sessions prior to the start of 
operations and several hours of op- 
erations under supervision. 

There does need to be at least one 
individual with math skills capable 
of writing the logical statements 
desired for the consistency checking 
program. Although programming 
skills are helpful, this does not re- 
quire any familiarity with BASIC. 

If interviewers of greater capabil- 
ity are available and acceptable, they 
could use the Model 102 and data 
entry system at the actual interview 
site. 

The use of laptop computers in 
this field survey provided the re- 





search team with high quality data | 
available for analysis ın a very short 
time at a reasonable cost. Interim 
estimates of results could be made to 
confirm that the data was being cor- | 


‘rectly gathered. A few days after , 


initial data collection was com- 
pleted, we were able to provide esti- 
mates that varied little from those 
given after final efforts at follow-up 
and correction were completed, over | 
a month later. The investment in | 
supervision in the field meant that 
the staff and time needed for office 
editing was greatly reduced. It also 
increases the likelihood of errors in | 
the data file being detected early | 
when they are easily corrected. 

In-field data control was an im- 
portant asset since it made the inter- 
viewers aware that careful allention | 
was being paid to their work. We 
found that this early feedback to in- 
terviewers influenced the quality of 
further interviews. 

Thus we found that using laptop 
computers and these data handling 
programs was a significant aid to 
high quality senior level staff super- _ 
vision. 

O 


Patrick Kelly, M.D., MPH!'; 
Stanley D. Musgrave Jr., M.D..MPH.*; 
James Allman, Ph.D}; 


1 - Health Systems Advisor, Pan-Ameri- 
can Health Organization, Port-au- 
Prince, Haiti. 

2 - Population Service Fellow of the 
University of Michigan School of 
Public Health at the Institut Haitien 
de l'Enfance, Port-au-Prince, Haiti. 
Mailing address, USAID - Haiti / 
Dept. of State / Washington, D.C. 
20520 

3 - Resident advisor for the Center for 
Population and Family Health, Co- 
lumbia University at the Division 
d Hygiene Familiale et Nutrition, , 
Port-au-Prince, Haiti. 
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The Missing Link 


Convert your Model 100/102 computer into a TI-59 calculator. 


by Rudy E. Kokich, M.D. 








week ago, the capricious 
but faithful TI-59 calcula- 


tor lost my confidence. | | 


asked for a cosine of 1.5 degrees, it 
gave me the answer of negative infin- 
ity. I asked for the solution of 2+2, it 
gave me the answer of negative infin 

ity. In fact, no matter what problem I 


Still, I have little use for a calculator 
which presumes to demean man’s 
destiny, especially in such a consis- 
tent, single-minded fashion. 

I disposed of the calculator with 


all due gratitude for past service and |11 IF C$="C" OR C$="c" THEN 2 
ge ELSE IF C$="X" OR C$="x" THEN 6 

faced the awful truth: with three ELSE IF C$="Q@" OR C$="q" THEN CLS:MENU 
computers in my possession, I had no ELSE C$="":GOTO 10 | 

$ 2 2. The |12 CLS:CALL 17001 ! 
practical way to add up 2 and 2. The :PRINT@280, STRING$(31,32);"p dec"; 
desktops would be outright indig- :PRINT@280," S =";S;D$; 

:PRINT@0," CALCULATOR-I ";CHR$(239) ;CHR$(239) ;CHR$ (233) ;"R";CHR$(234) ; 
nant at such a simple undertaking. | ICALL 17006: PRINT"=" R; 
Only my secretaries, who take no | FPRINT@8O,"f(X) = "5 
nonsense from any living or inani- |,, RETURN ime 
E 13 BEEP:PRINT"Error...":RESUME 9 

mate object, know how to keep them |14 DATA 32,32,32,32,32,82,46,75,79,75,73,67,72,32,49,57,56,55 


occupied. The Model 100, on the 
other hand, which I use almost exclu- 
sively, seemed more amenable. 
However, when I entered Basic and 
attempted to add up two numbers, 
the computer modestly kept the an- 
swer to itself, unless coaxed to dis- 
play it on the screen. In the case of 
calculating machines, at least, reluc- 
tance is clearly not a virtue. 








| 


: 4 B$=B$+I$:PRINT I$;:I$="":GOTO 3 
| gave it, the answer was always nega- |5 1g$="":PRINT:F=INSTR(B$,"X")+INSTR(B$, "x") 
i+ infini :A$2"Y="+B$+CHR$ (0) 
š > WwW 
tive infinity Perhaps the old fello 6 Sy HeT IAPR COSUB L 2SPRINT we 
was merely trying to tell me that, iN |7 IF F=0 THEN 8 ELSE LINE INPUT" X = ";X$ 
some cosmic sense, all my inquiries :X=ASC(X$):IF X=82 OR X=114 THEN X=R 
Tra en ee :GOTO 8 ELSE IF X=83 OR X=115 THEN X=S 
lead to negligible, insignificant an- | :goro 8 ELSE TF X>57 OR X<45 THEN ERROR 
swers. Which may be quite true... ELSE X=VAL(X$) 
8 A=VARPTR(A$) :B=PEEK(A+1)+256*PEEK (A+2) 


CLEAR 1040:FOR N=0 TO 17:READ X 
:D$=D$+CHR$(X):NEXT N 
B$="":M=0:P=4*ATN(1) :D=360/(2*P) 
:E=2.7182818284593 :C=LOG(10) 

:ON ERROR GOTO 13:GOSUB 12:D$="" 
I$-INKEY$:IF I¢="" THEN 3 ELSE I=ASC(I$) 
:IF I=61 THEN I$="+" 

ELSE IF I=59 THEN I$="/" 

ELSE IF 1=39 THEN I$="*" 

ELSE IF I=8 THEN B$=LEFT$(B$,LEN(B$)-1,) 
:GOSUB 12:PRINT B$;:I$="" 

ELSE IF I=13 THEN 5 


:CALL 1606,0,B:CALL 2499,0,63105 
>PRINT"f£(X) ="; Y:R=Y 
Co=""3M=1:CALL 17001 
:PRINT@280," S-save f(x) 


X-new X C-clear Q-quit "; 


:CALL 17006 | | 


C$=INKEY$:IF C$="S" OR C$="s" 
:PRINT@280, "SAVED f(X) "; 


THEN S=Y 











Listing 1. CALC-I turns your Model 100/102 into a TI-59 handheld calculator. 


THE SOLUTION 

I wrote CALC-I in response to the 
implicit plea for common sense by 
the thousands of students and pro- 
fessionals of all kinds who use the 
Model-100 computer, yet need to 


carry along a ten dollar calculator for 
simple mathematical functions. At 
the same time, I attempted to solve 
the problem faced by Alan Zeichick 
(The Plot Thickens; Portable 100, 


November 1987) of developing a | 
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subroutine which prompts for an 
equation and solves it, without re- 
quiring the user to modify the pro- 
gram by entering the equation as a 
separate program line. 

CALC-I is a slide-rule calculator 
with two memory registers, capable 
of solving one independent variable 
equations of up to 115 characters in 
length. 

It supports positive and negative 
numbers in conventional or scientific 
notation, all Basic mathematical 
operations Í +, -, *, /, ~,]SQR, SIN, 


| COS, TAN, ATN, LOG, INT, ABS, 











and parentheses], the constant P for 
Pi,the constant E for the base of the 
natural logarithms, the constant C for 
the conversion between the natural 
and common logarithms { C=Ln(10); 
Log (X)=Ln(X)/C J, and constant D 
for the number of degrees ina radian. 

The two memory registers, named 
Rand S, can be used for transferring 
earlier results into new equations, 
and are constantly displayed on the 
screen. While S saves a stored value 
until changed by the user, the register 
R is automatically updated with the 
most recent result. 

Equations entered into the calcu- 
lator must be presented as function of 
the variable X [e.g. X~2+3*X+4]. No 
other name may be used for the inde- 
pendent variable. If the problem does 
not contain an independent variable 
[e.g. 2+3+4-5], the calculator pro- 
vides the result without prompting 
for X. If the submitted problem con- 
tains the variable X [e.g. 2+SIN(X)], 
the calculator will prompt for the 
desired value of X before giving the 
result. Valid entries for X include a 
positive or negative number in con- 
ventional or scientific notation, the 
constant R, or the constant S. Con- 
stants P, D, E, or C are not valid. As 
the result is displayed, the equation is 
still retained in memory, and may be 
solved for new values of X. 

If the equation or the X value is 


entered incorrectly, or if an impos- 


1 


sible mathematical solution is sought 
[e.g. division by zero], the user will be 
warned with the Error... message. 
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This, however, neither alters register 
contents nor interrupts program exe- 
cution. 

Take note that in BASIC, and 
therefore in this calculator, trigono- 
metric functions are based on angles 
measured in radians. For example, 
SIN (3) assumes the angle of 3 radi- 
ans. To calculate the Sine of 3 degrees, 
enter the function as SIN(3/D). Co- 
sine and Tangent are handled simi- 
larly. The only inverse trigonometric 
function supported by BASIC is the 
Arc-Tangent, ATN. The result of 
ATN(X) is also provided in radians. 
Entering the function as ATN(X)*D 
converts the result to degrees. Note 
also the BASIC treats the LOG func- 
tion contrary to convention. Al- 
though LOG usually implies the com- 
mon logarithm of base 10, and LN the 
natural logarithm of base 2.718, enter- 





Entry of numbers 
can be made 
much faster 





ing LOG(X) will result in the natural 
logarithm of X. To obtain the com- 
mon logarithm of X, enter LOG (X)/ 
C. Natural and common antilogs are 
calculated as E~X and 10~X respec- 
tively. 


KEYBOARD CONSIDERATIONS: 

The Model 100’s typewriter-style 
keyboard is not ideally suited for a 
calculator. Entry of numbers can be 
made much faster by activating the 
numeric keypad with the [NUM] key. 
To further facilitate data entry, I have 
tried to eliminate the use of the SHIFT 
key—at least for the four basic 
operations. Instead of [+] and [*], the 
program accepts [=] and [’] respec- 
tively. Parentheses and [~] still re- 
quire shifting. Because of its more 


_ convenient position, the [;] key may 








be used instead of [/]. Although the 
program will accept entry in both 
upper and lower case letters, I prefer 
the use of the CAPS LOCK key. 


Correction of erroneous entries is | 


done with the [BKSP] key. The arrow 
keys and [DEL] are not functional. 


EXAMPLES: 

The program has two screens: the 
input screen, which asks for a prob- 
lem with the “f(X)=”" prompt; and the 
result screen, which displays the 
outcome of the calculation and 
prompts for further action (save the 
result, enter new X value, clear the 
equation to start anew, quit the pro- 
gram. f(X) means “a function of X,” 
an equation which uses X as an inde- 
pendent variable. You may also 
think of f(X) as meaning the “the 


result.” Remember that the mathe- | 


matical commands and the hierar- 
chy of operation are exactly as de- 
scribed in the BASIC section of your 
manual. Although I strove to make 
CALC-I simple and intuitive, the 
only intuition I am likely to fulfill, of 
course, is my own. Several examples 
will clear up misunderstanding bet- 
ter than explanations. 

Press in the [CAPS LOCK] and 
[NUM] keys and run the program to 
enter the input screen. Type the fol- 
lowing keystrokes in response to the 
“f(X)=" prompt: 1-2=3'4=1765 
; 5 <ENTER> 

The problem appears as f(X) = 1- 
2+3*441765/5, and the result is dis- 
played as f(X) = 364. Using [=] in- 
stead of [+] and [’] instead of [*] al- 
lows you to avoid shifting. The bot- 
tom line of the screen now holds the 
menu for further options. Press [S] to 
save the result in the constant mem- 
ory register S, then press [C] to clear 
the equation and return to the input 
screen. Note that in the left lower 
corner S carries the value of 364, 
while in the right upper corner the 
memory register R was automati- 
cally updated with the same last re- 
sult. 

To illustrate the display of subto- 


tals in a series of additions and sub- 
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| tractions, let us assume that register 
R carries the balance of your checking 
account, $364. Type in the equation 
R+X, where R is the balance (auto- 
matically updated after each 
operation), and X represents checks 
and deposits. After pressing <EN- 
TER>, the program prompts for the 
value of X. Make negative entries for 
checks and positive for deposits. 
Type in -14.00 and press <ENTER>. 
The result should be 350. Press X to 
select another value of X and note 
that register R was updated with the 
current balance. Type in a deposit of 
48.12 and press <ENTER> to obtain 
the final balance of 398.12 on the re- 
sult screen. Select C for a new equa- 
tion. Register S continues to hold 
your original balance. 

Now, let us get really serious. 

| Release the [NUM] key and type ina 
lengthy trigonometric function: 
SIN (X/D)+ COS(X/D) + TAN(X/D) + 
| LOG(X)/C + ATN(X)*D + (P/X)~E 
| <ENTER>. If X =45, the result should 
be 92.795, 116,338,096. Press S to save 
this result in the register S, then select 
| X to enter a new X value. Remember 
that constants P, D, E and C are not 
legal input for X, although they may 
| be used in the equation. This time let 
X =S or X =R, as both S and R carry 
the same number, and the solution is 
| 71.817,984,105,919. Select X again 
and enter 1E-5inscientific notation to 
obtain the result of 
8.766,023,026,343,3 E+14. Press Q to 
| exit the program and return to the 
main menu. 


| READING THE LINES: 

¢ Lines 1-2 initiate the program and 
specify constants P,D,E, and C. 

© Lines 3-4 hold a data input loop. 
each keystroke is saved in I$, 
which in turn updates B$, the vari- 
able that holds the equation. On 
completion of the equation, entry 
is terminated and calculation initi- 
ated by pressing <ENTER>, just as 
you would press [=] on a hand- 
held calculator. 

e Line 5 tests for the presence of the 
independent variable X in the 





equation. If X (or x) is present, the 
program prompts for the desired 
value of X before proceeding to 
calculate the result. 

e Line 7 accepts the input for the 
value of X and tests it for error. 

e Lines 9-12 essentially deal with 
menus and screen displays. 

e Line 13 is an error-handling sub- 
routine. 

e Line 14 holds data values. 


Equation Entry 
The very heart of the program is a 
100 byte subroutine located at the 


end of line 5 and in line 8. It may be of | 


further interest for two worthwhile 
reasons. First, it allows input and 


| solution of an equation in a Basic 


program, without the need to enter 
the equation each time as a separate 





The very heart 
of the program 
is a 100 byte 
subroutine 





line. Second, it may be applied as 
rudimentary unit of artificial intelli- 


| gence. Presuming that intelligence 


means the ability to alter spontane- 
ously the nature of the relationship 


| between the variables based on pre- 


vious results, this subroutine could 
be used asa part ofa loop in which the 
program re-programs itself in re- 
sponse to its environment (user in- 
put, data acquisition interface, etc). 
Substituting lines 3 and 4 with a 


| simple INPUT statement, and re- 


numbering for the purpose of discus- 
sion, the subroutine appears as 
shown in Figure 2. 


e Line 100 is an input statement, 
which places the equation into the 
string variable B$. 


e Line 101 tests forthe presence ofthe | 


LA 


independent variable “X” or “x 





in the equation, and prompts for 


the value of X before proceeding 
with calculation. This program 
was designed for a single inde- 
pendent variable; however any 
number of them may be used, 
providing this line is repeated to 
search for their presence in the 
equation. When naming inde- 


pendent variables, avoid using A, | 


C,G,I, L, N, O, S, and T, as these 
characters appear in the Basic 
trigonometric and LOG functions. 
e Line 102 prepares a complete Basic 
LET command [LET variable = ex- 
pression] by adding the prefix 


“Y=” to the equation in B$. The | 


suffix “CHR$(0)” marks the end of 
the statement for the ROM rou- 
tines about to be called. The full 
command, omitting the optional 
“LET,” is saved in the string vari- 
able A$. 


e Line 103 finds and saves in the | 


variable A the RAM location 
where the address of A$ is stored. 


è Line 104 calculates and saves in the | 


variable B the beginning address 
of the contents of A$. 

e Line 105 calls the ROM tokenizing 
routine which converts all Basic 
keywords of A$ into their one byte 
equivalents (tokens). The new, to- 
kenized line is inserted into mem- 
ory beginning at location 63105. 

èe Line 106 calls the ROM routine 


which evaluates the expression | 


beginning at location 63105, sav- 
ing the result in the indicated vari- 
able Y. 

e Line 107 prints the final result con- 
tained the variable Y. 


Now, imagine what you would | 


have if you expanded the subroutine 
to change automatically the relation- 


ship in B$ depending on the result in | 
Y, then made an array of these nodes. | 


a 
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CONVERSIONS 


FIF Is Alive And Well 


Metric still hasn't replaced 
the old-fashioned English system of measurements. 


by Gene Burress 








I ernment set in motion a ten to 

fifteen year plan, to convert our 
standards of measurement from 
English to metric. 


It is now 1987, and there is little, if 


any indication that we are in the 
process of conversion. It is noted that 


| some service stations have gone to li- 


ters, but most that tried this conver- 
sion, have gone back to gallons. Ap- 
parently, this was a commercial 
ploy, and it did not work. 


Weare accustomed to feet, inches, | 
gallons, pounds, etc., and although | | 


the metric system of measurement is 
more rational, it looks like our use of 
the English system for measure- 
ments, will be with us a long time. 
Construction drawings, prepared 
by architects and engineers, are di- 


| mensioned in FIF (Feet, Inches and 


Fractions of an inch). I don’t think 


anyone would argue with the fact | | 


that it is much easier to apply the 
basic operations of arithmetic (add, 
subtract, multiply and divide) to the 
metric system. Since the metric sys- 
tem is based on the powers of ten 
(decimal system) most of us have 


retained the ability to add such | 
| things as 1.275 ft. plus 1.875 ft. and 


get 3.150 ft. But, can we still add 1 ft- 
3 and 5/16-inches and 1 ft-10 and 1/ 


2 inches and come up with 3 ft-land | 


13/16"? How soon we forget what we 
learned in grade school. 

Most computers, using BASIC 
and having at least 8K RAM, can be 





n the early 1970's the U.S. gov- | 





18 'FIF OPERATIONS 
‘BY G.E. BURRESS 


PRINT" SELECT CASE" 
PRINT’ l= £ + OR =) FIF” 
PRINT"2- CONV.DEC. TO FIF 

1@@ PRINT"3- CONV. FIF TO DEC." 
110 PRINT"4- FIF/FIF 5- MENU" 
re A=VAL (INKEY$) 

130 ON A GOTO 1000,2000, 3000, 4080,600@: GOTO 


: CLEAR 


1000 CLS:PRINT"ADD/SUBTRACT FIF":PRINT 
1010 CLEAR: INPUT"HOW MANY NUMBERS?" ;N 

| 1020 FOR I=1 TO N 
1030 INPUT"FT.,IN.,NUMER. ,DEMON.";A,B,C,D 
1040 GOSUB 3085. 
1050 LPRINTA;*® "AB ™ MiGy y sD 
1060 C=C/D/12:B=6/12:E=A+B+C:F=F+E 
1072 NEXT I 
1075 GOSUB 5000 
1110 PRINT" TOTAL *#*# ";A2;" ";A5;" " 
1111 LPRINT" TOTAL **xx " A2; CHR$(39); 
1112 LPRINT CHR$(45);A5;" ";BS; CHR$ (34) 
1115 LPRINT 
1116 LPRINT 
1117 PRINT 
1120 PRINT"MORE, NEW, QUIT OR X M/N/Q/X?" 
1130 A$S=INKEY$: IF A$="" THEN 1130 








120 


; BS 


continued 





Listing 1. Use this program to check dimensions and calculate alterations. 
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4. What peripherals and accessories do you currently own for your A. O Daily C. O Monthly A pn 
portable? B. C Weekly D. O Other If you would like o one year subscription to Portable 100. pleose 
A. C Disk Drive D. C Modem : circle 300 on this card. Eoch subscription costs $24.97 (one 
net oP at. 8. In what type of business do you use your portable? year). Canada and Mevico, $29.97 (US Funds drown on US 
á RAM) es FO an : A. C Journalism E. O Science or bank). All other foreign $44.97. Foreign Air Moil add $50.00 per 
C on ! ROM P; , oo B. O Insurance Engineering subscription yeor. All Foreign use US Funds drown on US Bonk). 
- O Accessory ROM Pac C. ORetail F. O Business 
D. O Education G: O Thik P100B-1 


FEBRUARY 1988 














- This card 

ame . . 
valid until 

Company ; Aprilt 5 1988 

Address 

City/State/Zip Phone 


1. Which portable(s) do you own? 5. What peripherals and accessories do you plan to purchase 
































AD Model 100 0.0 Tandy 600 for your portable during the next A manths? 
8.. C Tandy 102 E. CI NEC 8201 A. C Disk Drive E. O Printer 
€. C Tandy 200 F. C Olivetti M10 B. O Memory Upgrade (RAM) F. C Tape Drive 
2. What are your most important applications for your portable? C. O Add-On ROM G. C Carrying Case 
A. C Word Processing E. C Scheduling/Time Management D. O Modem 
B. I Database Management F. CJ Spreadsheets 6. How much do i 
i z you plan to spend on portable computer hard 
= cll aia 6. C Other ware, software, and peripherals during the next 6 months? 
n a mogron A. O less than $100 D. c $400-$600 
3. Do you use your portable for... B. C $100-$250 E. C $600-$750 
A. C Business Use C. O Both of the above C. O $250-8400 F. C more than $750 ; l 
B. C Personal Use ; : 9. If you are not a subscriber, please circle 299 on this 
: 7. How often do you use on-line services? card. 
4. What peripherals and accessories do you currently own for your A. D Daily C. D Monthly v= 
portable? B. O Weekly D FOr H you would like o one year subscription to Portable 100, please 
* A. M Disk Drive N MI Mndem circle 300 on this cord. Each subscription costs $24.97 (one 
4 a Memi i relè E. C Printer 8. lı what type of business do you use your portaDie? year). Corada ond Mexico, $29.97 (US Funds drown on US 
i (AN) j F. C Tape Driv A. C Journalism E. O Science or bank). All other foreign $44.97. Foreign Air Moil odd $50.00 per 
COA ROM P. : P p B. C Insurance Engineering subscription yeor. All Foreign use US Funds drown on US Bonk). 
fT ADDSSSOTY: aç C. O Retai F. O Business 


D. O Education 6. D Other ——— P100B-2 


CONVERSIONS 











| used. to apply basic arithmetic to FIF. 
A printer is handy if you need to 
document your calculations, but not | 
| absolutely necessary. 

What follows are not complete 
| programs, but routines that can be 
used to arrive at accurate answers, 
using only FIF. These routines (writ- | 
| ten ona TRS-80 Model 100) will allow 


you to perform any arithmetical | | 114@ IF A$="N" OR A$="n" THEN 80 


1145 IF A$="M" OR A$="m" THEN 1818 


| operation on FIF and your answers PRE ey 
will be in FIF. Programming is fun aoe Bg Boris gs a 7000 ELSE 6000 
| and educational, so use these rou- | | 2010 CLEAR: INPUT"ENTER DEC. FT.":F 
| tines and write your own custom- 2020 GOSUB 5000 
ized programs. You will be able to 2030 PRINTCSNG(F);"DEC.=";A2;" ";A5;" ":B$:PRINT 
| add, subtract, multiply, divide and | | 2035 LPRINT CSNG(F);"DEC.=";A2;" ";A5; " "|; BS 


2040 PRINT “MORE,QUIT NEW OR X M/Q/N/X?" 


vetri tre penbleme, which 
ee S E A 2050 A$=INKEY$:IF A$="" THEN 2050 


| will be beneficial to architects, engi- | 2060 IF A$="M" OR A$="m" THEN 2010 

neers, detailers, draftpersons, and 2070 IF A$="N" OR A$="n" THEN 80 

students. And again, your answers | | 2080 IF A$="X" OR A$="x" THEN 7000 ELSE 6200 

will be in FIF. | | 3@0@ CLS:PRINT"FIF ‘TO DEC.":CLEAR 
3010 CLEAR: INPUT"FT.,IN.,NUMER., DENOM.";A,B,C,D 
8026 LPRINTsLPRINT At" "Be" Sagem pine Ws 





3025 GOSUB 3085 
3030 C=C/0/12:B=B/12;E=A+B+C 


. : 3040 LPRINT "=";:LPRINT USING "####. ####" ;E:LPRINT 
Programming 1S 3050 PRINT"MORE,QUIT OR NEW M/Q/N?" 
3060 AS=INKEY$: IF A$="" THEN 3060 
fun and 3070 IF A$="M" OR A$="m" THEN 3010 
A 3080 IF A$="N" OR A$="n" THEN 80 ELSE 6000 
educational 3085 IF SGN(A)=-1 THEN B=-B 


3086 IF SGN(A)=-1 OR SGN(B)=-1 THEN C=-C 

3088 IF C=@ THEN D=16 

3090 RETURN 

4908 CLS:PRINT "FIF/FIF"; CLEAR 

4010 INPUT "Ist FIF FT.,IN.,NUM. ,DEN.,":A,B,C,D 
Keep in mind that there is a con- 4020 LPRINT Ay" “Bet C7" 9D 

version process necessary in these Anse A Cn A+B4C 

fonimes, thats, PF to decimaland || 4a4a INPUT And FIF FT., IN. NUM. OEN,>"iA,B.0,D 





decimal to FIF and a couple of tricks 4050 LPRINT Ar" "Be" tigi yng 
that provide accuracy. 4055 IF D=0 THEN D=i6 `” : 
| | 4060 C=C/D/12: B=B/12: H=A+B+C 
GETTING STARTED 4070 G=E/H 
Use comma delimeters to input 4080 LPRINT CSNG(G);" ";"=tangent" 
data: 10 INPUT’ FIF”; A, B, C, D 4082 PRINT CSNG(G);" ";"= tangent" 


Say you want to enter 12ft-4and | 4085 AM=ATN(G): AM=AM457. 29578 


7/8-inches. OK, the keystrokes 
would be 12,4,7,8 (ENTER), or if you | 
are subtracting it would be -12,4,7,8 
(ENTER). Don’t try to subtract any 
FIF that will give you a negative 
answer, unless you are in the middle 
of a series of dimensions. Just make 
sure the total FIF is greater than line | 
1110 that follows). 
Here’s an example of a proper list : 
of entries (in line 1010, N Dy j | cornine 
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23,4,5,16 

-5,6,3,8 

21 l2 

0,0,-5,8 
0,-6,15,16 
The answer should be 19'-9 7/8". 
The program converts everything 
| to decimal ft. so the computer can 
| handle the transaction. (A=12, B=4, 
C=7, D=8). 


1060 C=C/D/12=  0.0729167 
1062 B=B/12 = 0.3333333 
1064 E=A+B+C = 12.4062500 
1065 F=F+E= (to accumulate) 


1072 NEXT I (See loop below). 


, NUMBER OF ENTRIES 

Of course, we will be dealing with 
more than one FIF, so we initially set 
| up a loop, to handle as many entries 
as we want to arrive at line 1065. 





This routine will 
prevent error 
messages. 


Set up a loop by first asking how 


CLEAR: INPUT “How many num- 
bers?”; N 


SUBTRACTION 

Suppose we want to subtract 
some FIF. We usea subroutine which 
tests all entries. 

3085 IF SGN(A)=-1 THEN B=-B 

3086 IF SGN(A)=-1 OR SGN(B)= 

-1 THEN C=-C 
3087 IF C=0 THEN D=16 
3090 RETURN 


Dividing a number by 0 is infinity, 
which is undefined. Dividing 0 by a 





which may contain 0’s of negative 


many number you plan to enter: 1010 | 


Line 3087 precludes division by 0. | 


number is zero. So, in entering FIF | 











LPRINT" Angle,deg.=";CSNG(AM) 
PRINT "Angle, deg.=";CSNG(AM) 
F=G:GOSUB 58000 


PRINT: “Slope="sA2s" ":4A6:" ™:B$ 
LPRINT"Slope=";A2;" ";A5;" ";B$;" per 12 inches" 
AM=ATN(AL*57, 29578) 

HY=SQR(E*2+H*2):F=HY:GOSUB 5000 

PRINT "Hypot. =z 0 + A2: "no n :A5; n n 'B$ 

EPRINTHypot = "A24" AS." MrB 


LPRINT:LPRINT 

PRINT"MORE,NEW,OR QUIT M/N/Q?" 
A$=INKEY$: IF A$="" THEN 4135 

IF A$="M" OR A$="m" THEN 4088 

IF A$="N" OR A$="n" THEN 8@ ELSE 6800 
Al=F : A2=INT(A1):A3=A1-INT(A1L) : A4=A3412: AS=INT(A4) 
A6=A4-INT(A4) : AG=A6%16: AG=A6+.5: AG=INT(AG) 
A6=16 THEN A6=@: IF A6=0 THEN A5=A5+1 
A5=12 THEN A5=@ : IF A5=0 THEN A2=A2+1 
A6=@ THEN B$="0/16" 

A6=1 THEN B$="1/16" 

A6=2 THEN B$="1/8" 

A6=3 THEN B$="3/16" 

A6=4 THEN B$="1/4" 

A6=5 THEN B$="5/16" 

A6=6 THEN B$="3/8" 

A6=7 THEN B$="7/16" 

A6=8 THEN B$="1/2" 

A6=9 THEN B$="9/16" 

A6=1@ THEN B$="5/8" 

A6=11 THEN B$="11/16" 

A6=12 THEN B$="3/4" 

A6=13 THEN B$="13/16" 

A6=14 THEN B$="7/8" 

A6=15 THEN B$="15/16" 


MENU 

INPUT "DEC. MULTIPLIER";M 
F=F*M:GOSUB 5000 

GOTO 1118 

END 


End of listing. 
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MODEL 100/NEC PC-8201A 
8K Memory Module 

$19 each 

Easy to install. Open the case and plug- 
them-in. Each module expands your 
memory by 8K bytes. Extra low power 
components mean long battery life. Very 
low profile means a proper fit in the 
NEC PC-8201A. Detailed instructions 
make installation quick and easy. You can 
expand your Model 100 to 32K and your 
PC-8201 to 64K (2 banks of 32K each). 
NEW!!! 

MODEL 102 

8K Memory Module 

only $9.95 


Easy to install. Just open the hatch 
and plug it in. 


numbers (subtraction), this routine 
will prevent error messages. 


CONVERTING TO FIF 

Once we have an answer, say 
12.40625, we need to convert it back. 
This is done with lines 5000 to 5090. 

In our example above, you will 
find: Al= 12.40625, A2= 12, A3= 
0.40265, A4= 4.875, A5= 4, A6= A4- 
INT(A4)= 0.875, A6= A6*16= 14, A6= 
A6+.5= 14.5, A6= INT(A6)= 14 

The elements for FIF are therefore, 
A2=12 (feet), A5=4 (inches) and 
A6=14 (numerator of fraction of an 
| inch in 16th’s i.e., 14/16). Line 5083 
will reduce the improper fraction of 


14/16 to 7/8. Lines 5020-5030 will | 


reduce improper FIF, such as 12-12 


and 16/16" to 13'-1". The little trick for | 


accuracy is line 5010 (A6=A6+.5), 
which in effect rounds off to the near- 
est integer. If A6 ends up 1.999 you 
want 2 as an integer, not 1. 








TANDY 200 
24K Memory Module 
$49 each 


Simply pop open the hatch with a coin 
and plug in one or two of these modules. 
Each module adds a 24K bank of 
memory to the TANDY 200. It’s like 
getting two more machines. The built in 
COPY function key copies files between 
banks instantly. Like our 8K, we build 


reliable memory chips available. 


THE PURPLE POLICY 

Try any of our products for 30 days, 
satisfy yourself that our service, quality, 
and prices add up to the best value 
anywhere—if not completely satisfied, 


PRINTING 

The elements to print are A2, A5, 
and B$. The program line might be 
1110 PRINT” Total+ “;A2;” “;A5;”" 
“BS, or 1110 PRINT” Total= “; A2; 
CHR$(39); CHR$(45); A5; ” “; B$; 
CHR$(34) 

I suggest that early in your pro- 
grams, you define your variables as 
single precision. Six places is more 
than ample for the use of decimals, 
will save memory space, and allow 
the computer to operate faster. 

With the routines above, you will 
be able to write programs to solve 
problems involving trigonometry, 
circles, (chords, segment areas, arcs, 
etc.), slopes, and offsets using only 
FIF, with no manual conversion to 
decimals. 





i 
f 
f 


you can return the product for a full 
refund. Prices include UPS surface 
shipping (in Continental USA)—even the 
phone call is free. 


30-day money-back guarantee. 
IT’S EASY TO ORDER 


Send your order with payment to the 
address below. Or, if you prefer, credit 
card orders can be handled by 
phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales tax. 
Checks allow 3 weeks to clear. 


1-800-732-5012 TOLL FREE 
Orders only (8am—5pm PST) 


(805) 987-4788 In California 

For orders or customer service 
PURPLE 
these with the lowest power and most (4 COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 


Telex: 888661 (PURPLE) 


Canada: Canada Portable Computer, (604) 534-6441 
Australia: Softech Computer Services, (2) 419-8899 
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CE 


MAKE 
YOUR PORTABLE 
MORE PORTABLE. 


(Add $4.00 
for shippini 
and handing 
Available in blac 
or smoke grey. 


he Chip-Tote® PCD-1 by Kangaroo Video 

Products, provides the maximum in por- 
tability and protection for your computer and 
its accessories. 

Constructed of rugged Cordura® nylon, 
this lightweight case is padded with Evazote® 
—a high-density foam that’s superior insula- 
tion against concussion. 

The angle-adjustable top, and numerous 
pockets for notes and pens allow the case to 
double as a desk. There’s even a detachable, 
zippered pouch for acoustic couplers, a _ 
modem cord, AC adaptor and extra batteries. 

It all zips together with a two-way zipper, 
and carries comfortabiy with a convenient 
hand strap or adjustable shoulder strap. Your 
satisfaction is guaranteed. 

The Chip-Tote PCD-1 accommodates the 
Tandy Model 100 & Model 200, Tandy 102, 
NEC PC-8201A, Olivetti M-10 and a variety of 
other notebook computers. 


KANGAROO VIDEO PRODUCTS, INC. 
10845 Wheatlands Avenue, Suite C 
Santee, California 92071-2856 

(619) 562-9696 / TLX 371 8593 KVPUSA 
© 1987 Kangaroo Video Products, Inc. 





Circle 81 on Reader Service card. 


SOFTWARE REVIEW 











ULTRASCREEN 


Does the 49-character Tandy 100/102 display cramp your style? 


by Donald Maxwell 











ne of the best features of the 

Model 100 is its small size. 

One of the worst is its small 

screen. You just can’t get many 
words onto eight 40-column lines. 

But now there’s a nifty new pro- 

gram called “ULTRASCREEN” that Seek Bs a a ya $ NS N 


just about doubles the number of Prom theo 

N = 
characters on the Model 100 or 102 muh. or Aeg ARATE 
screen. This improved display has l ; =e 


ten lines of 60 columns each. That’s 
600 characters per screen—nearly a 

equal to the 640 character display of AAA ae 
the Model 200. Furthermore, you can panyw a | 
switch back and forth at will between ' 
the ULTRASCREEN display and the 
standard one. 

Does it really work? Yes! It works 
with all of the built-in utilities, and, 
because the program is relocatable, 
with just about every other program 
ever written for the Model 100/102. 
Furthermore, the ULTRASCREEN 


' characters are just as easy to read as 














| the standard ones. | tei i 5 yo can seer char ters dre. challer 
It’s all done with a 2,654 byte ; a , hoa h Rontthelers 
machine-language program with no Eib Hien printed. aE dard. printed Line ‘alse 

| as al sa $ ë i eae ot RS ` ¢ Hihor dif kerence 
hardware needed at all. Switching y } Finn Ens “4 = Tints whe iene if a space that 


between the two displays couldn’t be x wks ae, Crete 


much easier. You just type “SCREEN 
0” or “SCREEN 1” in BASIC. You can 
also change displays within a pro- 
gram if you like. 

With the ULTRASCREEN in- 
stalled, the main menu comes up as 
usual, with the standard-size charac- 
ters and four columns of filenames. £ 
There is a subtle change though, the | Photograph 2. ULTRASCREEN increases the display capacity to eight lines of 60-characters each. 


Baga 





tapë PRINT paupa 








names of the five built-in 
application's programs now appear | 
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Make your 
Model 100, 102, or 200 
practically perfect 


PCSG has long been the champion of 
the Model 100 and 200 laptop 
portable computers. No longer toys, 
these machines can be made to riva 
the performance of many desktop 
models 

PCSG in the past three years has 
developed software programs and 
innovations that have rewritten all 
standards. 

We can give you what we regard 
as the superior Mode! 100 or 200 
system. This is a catalog of what you 
need to build that nearly perfect 
portable computer. Full brochures 
and the answers to any of your 
questions are just a quick phone call 
away. So, if you want to add 
dimensions of portable performance 
to your laptop unit, call in your order 
today. 

PCSG sells every product on a 
30-day full refund trial so there’s no 
risk. 


Snap-in ROMS 
Super ROM 


Get Lucid Spreadsheet, Write ROM, 
Lucid Database and Thought Outliner 
all on one ROM. Completely 
integrated so they all work together 
with the familiar Cut and Paste 
working between all applications 
Guaranteed to be the finest four 
programs available for the Model 
100, 102 or 200 on one ROM 
$199.95, plus shipping 


Write ROM 


This is full word processing capability 
like on a desktop. Not only format 
documents with left and right hand 














margins, page numbers, headers, 
footers but phenomenally more. Write 
ROM gives you memory writing 
performance: 44 features and 
functions that really bring text 
processing power to the Model 100, 
102. $99.95, plus shipping. 


Lucid ROM 


Features like LOTUS 1923. But not just 
a spreadsheet, a program generator 
as well. Features like Cut and Paste, 
variable column widths and lightning 
fast calculation speed. Lucid changes 
your computer into capacity you 
never thought possible in the Model 
100, 102, $99.95, plus shioping 











Disk + ROM 





Now your Model 100, 102, 200 plus 
any desk top computer is an instant 
disk system. With a function key 
transfer any files or BASIC or machine 
code programs to and from your 
portable and the other computer. The 
IBM version works over the phone 
$149.95, plus shipping. Cable $40.00 


iy E 


TEFEETTTETTI 













Business Analyst ROM 





Perform those strategic “what if” 


business problems. Allows detailed 
financial analyses like Breakeven, IRR, 
NPV, return on investment, interests 
costs, PV and others at the touch of a 
function key. Prints detailed reports. 
So easy! Also it performs simple 
everyday calculator functions. Check 
it out! $99.95, plus shipping. Model 
100, 102. 


HARDWARE 





6-ROM Bank 


Access Super ROM, Disk +, Business 
Analyst and others. The 6-ROM Bank 
with its 30 hour rechargeable battery 
pack lets you personally create your 
ultimate Model 100, 102 system. 
$199.00, plus shipping. 


OTHERS 








Custom ROMs 





Have your own BASIC program put 
on to a ROM, or combine your 
program with a PCSG program 
$500.00 minimum order — quantity 
pricing as low as $15.00 per ROM. 
Model 100, 102, or 200 





Cassette Programs j 





PCSG also has cassette programs 
available at closeout prices. Choose 
from Tutor + (typing tutor $94.98), 
Type + (makes your M-100 a memory 
typewriter — $34.98), Tenky + 
(financial calculator — $29.98), 
Data + (file manager — $29.98), 
Sort? + (sorting routine — $14.98), 
Write + (word processor — NEC 
only — $34.98) 

Shipping: $7.50 (U.S.) two days; 
$15.00 (U.S.) next day. 


PORTABLE GOMRUTER SURORT ORQUP 





11035 Harry Hines, Blvd., Suite 206, Dallas, TX 75299. 1-214-351-0564. 
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SOFTWARE REVIEW 





in lower-case letters instead of upper 
case. For example, it will read “Text” 
instead of “TEXT.” The names of files 
that you have SAVEd are still in 


upper-case, making them somewhat 
PP 6 | accepts characters only about half as 


easier to tell from the built-in ROM 
programs. 

As soon as you select an applica- 
tion, however, the ULTRASCREEN 
difference becomes obvious. 

The ULTRASCREEN characters 
are noticeably smaller than the stan- 
dard characters. Each ULTRAS- 
CREEN character occupies a matrix 
five pixels high and three wide. (The 
standard matrix is 7 x 5.) That’s about 
` as small as is possible, given the size 
of the pixels on the Model 100/102 
screen. But small as they are, the 
ULTRASCREEN characters are 
clearly legible. In fact, they usually 
seem even easier to read than the 
standard characters, probably be- 
cause they’re more compact. 

If you don’t like the shape of a 
character, you can change it with a 
font editor that comes with UL- 
TRASCREEN. I’ve tried it, but I’m 
generally pleased with the ULTRA- 
SCREEN character set. The numeral 
“8” is the only character that seems to 
suffer from the small size. It looks 
like two dotty diamonds, one above 
the other, but I couldn’t improve on 
| it. Anyway, lalways knowit’san “8.” 

When you’re writing something, 
the more words you can see the bet- 

ter. So it’s in TEXT that you'll really 
appreciate ULTRASCREEN. You'll 
be able to see approximately twice as 
many words as in the standard dis- 
play. (True, there are 40 fewer char- 
acter positions available than in two 
standard screens, but because the 
number of word-wraps is reduced 
by about one-third, you usually end 
up with more words on the screen.) 

Also, 60 characters is the normal 
line length for pica type, so in effect, 
what you see on the 60-column 
screen is formatted pretty much the 
way it'll be when printed out on 
paper. Of course, if you specify a 
different line length or embed non- 
printing control characters in the 





text, the printed format will be differ- 


ent from what you see on the screen. 

There is one drawback to using 
ULTRASCREEN in TEXT (but not in 
the other application programs). It 


fast as the standard display does. For 
example, in the standard display, I 
entered 120 characters (three 40-col- 
umn lines of solid text) in eleven 
seconds, but in ULTRASCREEN, it 
took 22 seconds to enter the same 120 
characters (two 60-column lines). 
That’s only about 45 words per min- 
ute—just about fast enough for a 
mediocre typist like me, but hardly 
satisfactory for fast copy typing. 
Fortunately, ULTRASCREEN seems 
to have a huge input buffer. At any 
rate, I've never been able to get so far 
ahead that it loses anything I’ve 
typed in. When I take a break, it just 
plugs along until it catches up. 





TEXT makes you 
really appreciate 
ULTRASCREEN. 





ULTRASCREEN is especially slow 
when inserting text into the middle of 
a paragraph. It is so slow, in fact, that 
I usually enter any long insert on a 
blank line and then CUT and PASTE 
it to where I want it. 

This lack of speed in TEXT is not 
the best feature of ULTRASCREEN, 
but for me, at least, it’s a small price 
to pay for twice the screen capacity. 


Of course, you can always switch | 


to the standard display if you need to 
doa lot of fast typing. I usually prefer 
to use a short type-in BASIC program 
that is in the ULTRASCREEN man- 
ual. It enables speed demons to enter 
text on the 600-character screen at 
any humanly-possible typing speed. 
You can’t edit in this program, except 


for deleting to the left, but you can | 


easily edit later in TEXT. 
BASIC works the same with UL- 








TRASCREEN as with the standard 
display with three exceptions. One is 
that program listings are a lot easier 
to read, with more lines visible and 
fewer wrapped-around lines. A sec- 
ond exception is that the “PRINT @” 
command will format things differ- 
ently than in the standard display, 
because it works by counting charac- 
ter-locations from the “home” posi- 
tion. And the other exception is that | 
printing to the screen actually goes 
slightly faster in ULTRASCREEN 
than in the standard display. 

ULTRASCREEN easily keeps up 
with TELCOM, and in general the 
600-character display is preferable to 
the standard one. Under certain cir- 
cumstances, however, you may ac- 
tually see fewer characters with 
ULTRASCREEN than with the stan- 
dard display. This is because in the 
standard display, TELCOM lets you 
see the previous eight lines of text 
when you press F1. So in effect, you 
can look at 16 lines of 40-column 
text—640 characters. But this 
double-screen feature doesn’t work 
with the ULTRASCREEN display, 
so you're limited to the one 600- 
character screen. 

Ordinarily, this is fine. It’s equiva- 
lent to seeing the two standard TEL- | 
COM screens at the same time. But if 
the computer you’re communicat- 
ing with sends a RETURN every 80 
columns, then five of its lines will 
take up ten ULTRASCREEN lines, 
because every-other ULTRAS- 
CREEN line will have 40 blank 
spaces after the RETURN is re- 
ceived. In that case, the ULTRAS- 
CREEN display will hold no more 
than 400 received characters at a 
time. That’s more than a single stan- 
dard screen, but quite a bit less than 
the standard TELCOM double 
screen. Of course, you can always 
switch to the standard display, but to 
do so, you have to log off, go to 
BASIC, make the switch, and then 
log on again. (Or you may be able to 
tell the other computer to send you 
60-character lines.) 

There are a few other programs 
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Great software from HSI 


DVORAK 


by Tri-Mike Network East 


Give your laptop the Rolls-Royce of 
keyboards. The Dvorak key arrang- 
ment eliminates wasted motion, re- 
ducing finger travel by more than 90 
percent! Typing is faster and more ac- 
curate. It feels better — more natural, 
more relaxed. So there’s less effort, 
less error, and less fatigue. And 
learning to type is much easier. No 
hardware! Just run the program once 
and forget it. Uses less than 650 
bytes of RAM. Works in BASIC, 
TEXT, TELCOM, ete. 
(100/102, 200, NEC) 
$29.95 


MONOPOLY 


by Tri-Mike Network East 


It’s you against the computer and the 
computer is atough competitor. The 
computer makes all its own deci- 
sions. Super fast machine language 
graphics display the whole board at 
alltimes. You cantell at a glance who 
owns what property and the number 
of houses on each. It never takes 
more than tor 2 seconds for the 
computer to decide what to do. The 
computer is such a good player that 
you'll be lucky if you win half of the 
time. 
(100/102, NEC) 
$29.95 


ASSEMBLER 
by HSI 


Our assembler is the answer to your 
assembly language programming 
needs. It has all the features you 
expect in an assembler and more! It 
requires less than 3K of your RAM 
and is relocatable to any place in 
memory. You can output all or any 
portion of the assembled listing to 
your screen or printer. A 56 page 
manual covers the use of the assem- 
bler, the 8085 instruction set, useful 
sample programs and information on 
the ROM and reserved RAM. 
(100/102, 200, NEC) 


$29.95 


Order from: 

Hardware-Software Integrations 
415 S. Monroe St., Suite 108 
Monroe, Michigan 48161 


MasterCard, Visa, COD orders 
call (313) 243-5320 


PLEASE ADD $1.50 PER PROGRAM SHIPPING AND HANDLING. BE SURE TO SPECIFY: 
MODEL 100/102, 200, or NEC. MICHIGAN RESIDENTS ADD 4%. 





Circle 80 on Reader Service card. 


NEW! 


For Model 100 
Model 102 
Toshiba 1100+ 
NEC 8201 
Epson HX20/HX40 
IBM Convertible 
Sharp 2500 
Zenith 171 
Zenith 181 
Grid 


KEYBOARD 


SafeSkin m PROTECTOR 


Finally, A keyboard cover that remains in place during use! 


+ PROTECTS CONTINUOUSLY - 24 HOURS A DAY - Against computer downtime due to liquid spills, dust ashes, staples, paper 
clips and other environmental hazards. 

e REMAINS IN PLACE during the operations of your keyboard. SafeSkin is precision molded to fit each key - like a “second skin.” 

e COVERS ENTIRE KEYBOARD CASE - Most SafeSkins are designed to cover the entire keyboard case - not just the key area. 

© EXCELLENT FEEL - The unique design eliminates any interference between adjacent keys, allowing smooth natural operation of 
your keyboard. 

© SafeSkin IS VIRTUALLY TRANSPARENT - Keytops and side markings are clearly visible. In fact, SafeSkin is soclear, sometimes 
you may not know it’s there! 

+ DURABLE - LONG LASTING - SafeSkin is not a “throw-away” item. Many of our protectors have lasted over 3 years under 
continuous daily use, without failure. 

SafeSkin is available for the portables listed above and most popular desktops PC’s including IBM, APPLE, AT&T, COMPAQ, DEC 

EPSON KEYTRONICS, NEC, TANDY, TOSHIBA, WANG, WYSE, ZENITH. Specify computer make and model. Send $29.95, 

Check or M.O., VISA & MC include exp. date. Dealer inquiries invited, Free brochure available, 


| that increase the number of charac- 
` ters on the Model 100/102 screen, | 
' butnone of them has even come close 
to the improvements made by UL- 
TRASCREEN. Despite the some- 
what slow entry speed in TEXT, no 
| other utility for the Model 100/102 
| has been as useful to me as ULTRAS- 
i CREEN. I’d recommend it without 
| hesitation to any Model 100/102 
owner. aa 


Manufacturer’s Specification’s 


Ultrasoft Innovations 

76 Main Street 

P.O. Box 247 

Champlain, NY 12919 
Information—(514)487-9293 

' Orders—(800)448-4511, ext 313-7 


|| Ultrascreen—$34.95 
| tape or disk. 
_ For the Tandy 100 and Tandy 102 








ae Merritt Computer Products, Inc. 
4561 S. Westmoreland / Dallas, Texas 75237 / 214/339-0753 
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PRINTING 








TRP-100? 


by Richard J. Dickson 


Change Type Faces With A 


Tired of the same old characters all the time? Try these tricks! 











hange type faces with a 

Model 100/102 and a TRP- 
| 100 printer? You’ve got to 
be kidding! But why not? Or at least 
so I asked myself. 

Following several years in the 
| commercial printing and typesetting 
business, I guess I have just been 
spoiled by sophisticated phototype- 
setting equipment. Need a new type 
face? Want to change the size of the 


push a button. 

Most of the work we did was book 
and magazine work, so we didn’t 
| always get the full capability out of 
| our equipment. We used it very 
much like an expensive word proces- 
sor. But every once in a while the 
need arose to compose a ruled form, 
or even a display ad that could go to 
camera without any further paste- 
up. 
And soin later years, as I play with 
the portable equipment on my lap 
(and even while sitting in the cockpit 
of my anchored sailboat), the 
| thought occurs to me, “Wouldn’t it 
| be nice to be able to create a variety of 
type faces with the TRP? At least 
until they come out with a portable 
daisy-wheel model that I can use out 
| here in the bay.” 

Well, good news! It is possible to 
create a variety of type styles, albeit a 
limited variety, with the TRP-100. 
| Simply by entering a series of com- 
| mands from the Model 100, docu- 





face you're using? Why then, just | 








SAMPLE 


1 just created 


HEAD ING 


a new type face 
using nothing but my Model 
and my unlimited imagination. WOW! 


1Q6 





Figure 1. This type is the standard height, but twice the width. 





SAMPLE 





HEAD EmN 

I just created a new type face 
using nothing but my Model 188 
and my unlimited 


imagination. WOW! 








Figure 2. And it's easy to delete the extra spce. 


ments can be created in BASIC that 
will simply amaze and further chal- 
lenge your creative juices 


ELONGATE 
For instance, wouldn’t it be nice to 


| create some fancy headings in a 


larger size type for your reports and 


| documents? If so, try ELONGATE, a 


type face that actually is the same 
height as normal TRP letters, but 
twice the width. The added size cre- 
ates the illusion that you actually 
have a much larger type face. 

Put your Model 100/102 in Com- 
mand Mode (BASIC) and enter the 
following program: 

10 LPRINT CHR$(27); CHRS$(14) 
20 LPRINT “SAMPLE HEADING” 
30 LPRINT CHR$(27); CHR$(15) 


_ 40 LPRINT 
| 50 LPRINT “I just created a new type 


face” 





60 LPRINT “using nothing but my 
Model 100” 


| 70 LPRINT “and my unlimited 


imagination. WOW” 
80 END 


Now, turn your printer on, align 
the paper, and if you’re brave, type 
RUN and press ENTER (or simply 


press [F4]). Check out figure 1 for a 
| sample. | 


SAMPLE HEADING 

I just created a new type face using 
nothing but my Model 100 and my 
unlimited imagination. WOW! 

If you think there’s too much 
space between the heading and the 


| body of your text, simply delete line 
40 in the program. Placing a semi- | 
colon (;) at the end of line 30 will 


eliminate the space entirely (see fig- 
ure 2). 
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Another use for ELONGATE that 
has been helpful, is printing an entire 
text in this expanded version. Public 
speakers find it most useful at the 
lectern. And even though we didn’t 
try it in our sample, it works with 
both upper and lower case letters. 
For example, try changing line 20 to: 
20 LPRINT “Sample Heading” and see 
what happens. 

One word of caution: if you’re 
going to print an entire document in 
ELONGATE using the built in 
PRINT program on your Model 100, 


| be sure to set the line length at 40 


| when prompted by the screen. Re- 


member, you've doubled the width 
of each character, which means 40 
ELONGATE characters take up the 
space of 80 regular characters. 


SHRINKING YOUR DOCUMENT 
But what about going the other 
direction? How about reducing the 


_ type size for footnotes? Or, suppose 
_I want to miniaturize a document? 








Simple! Use either SUPERSCRIPT 
or SUBSCRIPT. Try this program: 


10 LPRINT “I’ve been having so 
much fun with my” 

20 LPRINT “new TRP-100 that I 
don’t have room” 

30 LPRINT “to store all the docu- 
ments I’ve been” 

40 LPRINT “creating. I wonder...” 

50 LPRINT CHR$(27); CHR$(83); 
CHR$(01) 

60 LPRINT “Wouldn’t it be nice if” 

70 LPRINT “T could shrink all this: 

80 LPRINT “paperwork down to a 
more” 

90 LPRINT “reasonable size?” 

95 LPRINT CHR$(27); CHR$(88) 


97 END 


Again, type RUN, press ENTER, 
and check out the results (figure 3A). 








Now then, there 
still seems to be a bit 
too much space be- | 
tween the lines, so 
let’s add: 55 LPRINT | 
GHRBC2 7) s | 
CHR$(28) and 96 | 
LPRINT CHR$; 
CHR$(54). 

Got it in your pro- 


Wouldn’ t 
could wehr irni mii 
PaArerwork down to a more 


renu cnabls mize 


it Ow rice if 


trie 





gram? Then run it 
again (see figure 3B). 


Figure 3A. Use Superscript to miniturize your text. 





Aha! We did it! 
BIG LETTERS to 
small letters. And all 
with our Model 100 
and a TRP-100. Keep 
in mind that while 
SUBSCRIPT and 
SUPERSCRIPT may 
look alike in print, 
SUB-occupies the 
lower half of the line 
space and SUPER- 
occupies the upper half. The differ- 
ence is in the entry code. 





SUBSCRIPT=CHR$(01) 
SUPERSCRIPT=CHR$(00) 


HIDDEN SURPRISES 

BUT-Don’t turn the page yet. 
We're not through. 

“We're not? But I’ve been looking 
through my TRP-100 Operation 
Manual, and I see all these faces 


Wouldnt 
Z% could ehrink mil 
Hm Peer wormk dowr 
TreweaBonearle wi xe? 


Figure 3B. Then reduce the space between lines. 





you've created, but I don’t see any | 


more? What have you got in mind?” 
Unsatisfied creature that I am, I 
just had to ask, “What if...?” You'll 
never guess what I came up with. I 
call it SUBELONGATE (also SUPER- 
ELONGATE). I suspect you see 
what's coming already. 
Try this: 
10 LPRINT CHR$(27); CHR$(14); 
CHR$(27); CHR$(83); CHR$(01) 


| 20 LPRINT “Hello, My name is (Your 





it bwe nicw 1 
thaw 
to a morw 








Name)” 

30 LPRINT CHR$(27); CHR$(15); 
CHR$(27); CHR$(88) 

40 END 


Do you think you know what's 
coming? As before, type RUN and 
press ENTER (see figure 4). 

Well, there you have it. Another 
type face that will make equally nice | 
headings for your reports or docu- | 
ments. Actually, if you use SUPER- 
ELONGATE (CHR$(00) and add the | 
UNDERLINE commands, you have | 
a very nice looking heading: 
LPRINT; CHR$(15); “HEADING”; 
CHR$(14). 

A few words in closing. You 
probably noticed as you ran your 
sample programs that the SUB- and 
SUPER- formats cause the print head 
to move twice over the paper for 
each line. That’s the way it’s sup- 
posed to work so don’t worry that 








Pe EE od, Seek et Ey 


mice cas l. 





LD ae j 
' 








| 


Figure 4. Sub-elongate or super-elongate type faces are also possible | 
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Page í 


i ches PRINT TABLCiS) "<<< FONTS >>>" 

= PRINT: PRINT ° Yhis programı will produce a type face 
speciman sheet with instructions for entering printer 
commands. ” 

= PRINT * If vou are readu to begin, BE SURE PRINTER 


TS ON AND PAPER ALIGNED, then press SPACE BAR to 
continue. "4 

4 Y$=INKEY#: IF Yt = "* THEN 4 ELSE 5 

5 LPRINT TABR(3@) “<<< FONTS >>>" 

é LPRINT 

10 LPRINT TAE (10) " The foliowina type faces are 
available for use on the" 

ji LPRINT: LPRINT TAB(3Q@) *“TRO-8@ TRP 100" 

iz LPRINT TAR(26) “Thermal Ribbon Printer": LPRINT 

13 LRPRINT TAB(1@) “They are entered according to the codes 
shown, each beginning“ 

14 _PRINT TARCI@) “with the LPRINT command. “ 

15 LPRINT 

20 LPRINT TAB(10)53 CHR$(15)}5 "DOT MATRIX"; CHRS(14) 

25 LFRINT 

3a LPRINT TABRCIO) " No special code needs to be entered 
to use this normal" 

31 LERINT TABC1@) “computer type face. The easiest way ta 
return to this face” 

33 tPRINT TAB(Ci@) “after using other stules, if to turn the 
printer OFF and back" 

44 LPRINT TABC1@) "ON again.” 

35 LRPRINT 

40 LFPRINT TAR(1@)5 CHRE(15)3 “ELONGATE"5 CHRE(14) 

45 LPRINT 

50 LPRINT TABIO) "Enter: LPRINT CHRS$(27)5 CHRS(14)" 

EO LPRINT TAPRCi@) "Clear: LPRINT CHR$(27)5 CHRS(15)* 

65 LPRINT 

70 LPRINT TAR(19): LPRINT CHR(27)5 CHRS(14) "“ELONGATE type 
face uses the” 

7i LFPRINT TAR(5) “same line height but doubles" 

72 LPRINT TARC5S) "the width of each letter. When" 

77 LPRINT TABCS) “using with the PRINT proeram, * 

74 LPRINI TAPR(5) “be sure to change line length” 

75 LPRINT TAB(5) “to 40.": LPRINT CHRS(27)3 CHRS(15>) 

76 LPRINT 

BW LFPRINT TAPR(1@)§3 CHR$(15)3 “SUPERSCRIPT”; CHR#(14) 

85 LPRINT 

7@ LPRINT TAR(1@) "Enter: LPRINT CHRS(27)3 CHR% (83); 

CHRS (OO) "* 

1@@ LFRINT TABC10) “Clear: LPRINI CHR$(27)3 CHR$(88)" 

105 tLPRINT 

110 LPRINT TAERCZ@): LPRINT CHRS(27)5 CHRE(64)5 CHRE (60) 
"SUPERSCRIPT takes the same character” 

{11 LPRINT TAPC(2@) “width but only half the height. Used” 
1iZ2 LPRINT TARC2Q) "with the Half Forward Line Feed code" 








continued 








Listing 1. This program, FONTS.BA, produces a specimen type face sheet with instructions for entering the code needed to use each type face. 
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113 LERINT TARCZ20) ‘(see below) it is an excellent way to" 
1i4 LPRINY TAR(29) "miniaturize documents.” : LPRINT 
CHRS(S7)3 CHR$ (88) 

ES LRRENT 

1o LPRINT TFAB(1Ø0)3;3 CHR$(159:3 “SUBSCRIPT*’5 CHRS(14) 

125 LPRINY 

J30 LPRINT TARCi@) "Enter: LPRINT CHRS(27)35 CHR (8335 
CHRE(@i)* 

140 LPRINT TAB(19) "Clear: LPRINT CHR#®(27)3 CHRS( 88)" 
345 LPRINT 

130 LPRIN?Y TAR(2@);s LPRINT CHRE(27)5 CHRS(83?5 CHRE(@1) 
"SUBSCRIPT is the came as SUPERSCRIPT" 

iSi LPRINT TAR(28) "but positioned on the lower half of 
the" iS2 LPRINT TAB(CZ@) "line. In document use the two 
apoear to" 

153 LFRINT TAER(CZ@]) "be the same.“: LPRINT CHRE(27) 35 
CHR (66) 155 LPRINT 

L160 LPRINT TARCI@)5 CHRE(15)5 "“SUPERELONGATE”“ 5 CHRS(14)3 * 
(SUBELONGATE )* 

165 LERINT 

170 LPRINT TABRCIB) “Enter: LPRINT CHRS(27)5 CHRE(14)35 
CHRE(27)5 CHR$(83); CHRS(OD)" 

1680 LPRINT TAR(1@) "Clear: LPRINT CHRS(27)53 CHRE(15)5 
CHRS(27)5 CHRE(SH>" 

185 LRRINT YTAB(17) “OR, turn the printer OFF" 

1°48 LPRINT 

195 LPRINY TABRCIB): LPRINT CHRE(27)5 CHR$(14)5 CHP$(27); 
CHRE(63)5 CHRE(@O) “This type face combines the two" 
196 LPRINT TAR(5S) “other options for an interesting” 
197 LPRINT TAR(S5) "type face of many uses.": LPRINT 
CHREC27)5 CHREI15)45 CHRE(27)5 CHR#(88) 

ZOO LPRINT 

205 LPRINT TABC1I@) “HALF FORWARD LINE FEED" 

212 LPRINT 

215 LPRINT TAB(iQ) “Enters LPRINT CHRS(27)5 CHRE(2G)* 
220 LPRINT TAPR(1@) “Clear? LPRINT CHR#(27)3 CHRE(54)? 
e221 LPRINT TAB(i7) "(Full Forward Line Feed)” 

225 LPRINT TABRCI7) “OR, turn the printer OFF" 

“3@ LPRINT 








235 END End of listing. 








you've done something to your 
machine. 

Also, I find it helpful to have a 
display sheet for each of these faces, 
along with the instructions for creat- 
ing them. In order to make it more 
convenient for you to use these type 
faces, then I suggest that you set up 
the program included with this ar- 


ticle (listing 1) and run it off. Use a 





boat in the summer and use it for 


piece of good bond paper and a ther- navigation printouts and weather 

mal ribbon cartridge since you'll | forecasts, as well as to type letters to 

want to save it. (I’ve found that the | mail back home. 

thermal paper that comes in the rolls But above all, BE CREATIVE! 

tends to fade after a time.) Experiment! And be sure to keep 
So now, enjoy your printer. And | trying new things. You might sur- 

by all means don’t think you’re lim- prise even yourself. 

ited in what you can do because it’s m 

portable. I carry mine aboard the 








J 
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UTILITY CORNER 


Using The Model 100 Bar 
Code Reader As A 


Tachometer/Counter 


This article presents an unusual use 
for a bar code reader and a Model 100 


by Frank W. Schrader 








esides being a computer 

buff, I am also a machine 

shop nut. Not having a ta- 
chometer to check spindle speeds on 
machine tools in my shop, but being 
in possession of a Model 100 and a 
Radio Shack Bar Code Reader (which 
I confess has not been used much, ex- 
cept to read UPC codes on my grocer- 
ies), I devised a program and, 
thereby, probably created the 
world’s most expensive tachometer. 

If you don’t happen to havea shop 
full of machine tools, but do have a 
record turntable with a variety of 
speeds, you can check the turntable 
Revolutions Per Minute (or check the 
calibration of the programs, as the 
case may be). A sheet of white paper, 
witha black line, approximately 1/32 
of an inch wide, drawn across the 
center and taped to the turntable will 
serve as the visual reference for the 
wand. 

Drawing the lincall the way across 
the paper gives two counts per revo- 
lution for use of the programs as 
presented. This can be changed by 





L 








b RLM Poke program for generating TACH.CO 11/87 

lU FOR I= 52224 TO 52259 

2U READ N 

30 POKE I,N 

4U NEXT I 

5U SAVEM"TACH,CO",52224,52259 

1000 DATA 33, 64, 204, 30, U, 205, 131, 114, 194, 35, 204, 219, 187, 230, 8, 
202, 21, 204, 195, 5, 204, 28, 123, 254, Ul, 202, 35, 204; 119, 62, 7, 231, 195, 
5, 204, 201 


By: P.w.Schrader 











Listing 1. A simple BASIC program which pokes the code for TACH.CO into memory 





U CLS "BACH BA By F.Ww.Schrader 11/87 

1 IF & AND INp(167) THEN 1:COro 1 ELSE 10 

lü TIMES="0U;UU:00" ' SET CLOCK TO ZERO AFTER FIRST 
30 CALL 15959 INHILIT SCROLLING 

50 CLEAR 256,52224 

5U LOADIT"VACH, CO" ' GO FIND THE TIME FOR 10 TRANSITIONS., 
70 CALL 52224 ' IN SECONDS. 

80 TS+HIDS (TIMES,7,2) 

SU T'=VAL(TS) 


BAR DETECTED 





35 R=3UU/T " CALCULATE RPH 

100 CALL 16964 ' SCROLL AGAIN 

1lü PRINTO 170, INT(R):PRINLC174," RPM" 
12U COTO 1 ' SAMPLE TIME AGAIN, 
5UU CLOSE 








Listing 2. The BASIC counting program that will tell you the RPM.. 
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UTILITY CORNER 











—— 








Source coce for TACH.CO 
ORG UCCUULi 
LXI ti, UCC4UL 
HVI EU ‘Set count to Ü 
WAND: CALL 7263ii 'Cneck if GRK pressed 
Jia DOWE ‘cuit 
IN Ubi "INPUT FROM WAND 
ANT ë 
Jå BEEP ‘SOLEP If DAY 
JMP WAND 
Bribes INR t TINCH COUNT 
KOV AÈ 
cel unii "TIS COUNT lü+1? 
Jå DONL "HACK "TO BASIC 
taJV nigh "AND CALC RPM 
iNI Digs "GENERATE BEEP 
RST 4 
Jhe WAND "SAMPLE ACAIN TILL 11 BAR COUNTS 
BOWL 








Listing 3. The assembly source code that produces TACH.CO 


changing the arithmeticin the basic programand drawing 
more radial lines on the paper. 

It is a good idea to tape a piece of clear or translucent 
plastic over the paper to save wear and tear on the paper 
or the end of the wand. 

After loading the programs, and with the turntable 
turning, hold the wand tip gently against the plastic at 
approximately a 20 degree angle to the vertical, and run 
the BASIC program by pressing the F4 key. The computer 
will beep each time the bar passes under the wand. After 
ten transitions, the computer returns to BASIC, does the 
arithmetic, prints the Revs Per Minute and returns to the 
machine language program for another sample. Don’t 
forget to press the read button on the 








TRAVEL CASE PLUS+ 
MAKES YOUR LAPTOP PARTS A PORTABLE SYSTEM 
e Unzip case, adjust typing easel, 


turn on switch and begin work 

e The Tandy 102 or 200 can remain 
connected to your disk drive 

e Navy blue padded nylon case 
and plastic tray protects 
equipment 

è Large front pocket will hold a 
TTXpress or Diconix 150 Printer 


è Dimensions: 12.5” x 14” x 2.5" 



















Tray also fits: 
è Model 100 
e NEC 8201A 







Case without tray 
holds: 

e NEC Multispeed 
èe Toshiba 1100+ 


SIMONS DN 


PRODUCTS Travel Case+ $85.00 e Case w/o tray $70.00 
Return within 15 days if not satisfied. 
Check, Money Order, Visa, M/C 
(Minnesota residents add 6% sales tax). 
We pay postage in Continental U.S.A. 

















10908 GLEN WILDING LANE 
BLOOMINGTON, MN 55431 
PHONE (612) 881-7221 








Circle 60 on Reader Service card. 











wand. If the wand is held away from 
the paper on the turntable and the read 
button is pressed, you should get a 


constantcountof300RPMthewaythe [CUU — 
programs are set up. me s ral 


To break out of the program and 
return to BASIC, press CTRL C. Don’t 
forget to reset the computers clock af- 
ter fooling around with these pro- 
grams or you are liable to be late for 
work in the morning. 

At higher RPM’s it may be neces- 
sary to draw black, radial wedges on 


CCUS CD 7283 
CCcUs C2 CC23 
CCUB DB BB 
CCUD E6 08 
CCUF CA CGIS 
CCcl12 C3 CCU5 
CCL5: 1€ 

ccl6 78 

CC17 FE 0B 
CC19 CA CC23 








the paper to permit the wand to see ccie 77 
them. Do not make the angle too ob- |cclp 3E 07 
tuse or you will get more than one |CC1F E7 
count per passing. The math is left to nce fea: ceos 
the reader. As already confessed, the |cc23 cg 
writer is a computer buff and a ma- 0000 





chine shop nut, not a math whiz. : A 
Q OUOUO Errors 


WAND: 


DONE: 














(Object code generated by BASIC poke program or assembly of TACH.DO 
ORG UCCOOH 
LXI H, UCC40H 
MVI E0 'Set count to 0 
CALL 7283H ‘Check if BRK pressed 
JNZ DONE "Quit 
IN UBBH "INPUL FROM WAND 
ANI 3 
JZ BEEP "BEEP IF BAR 
JiiP WAND 
BEEP: INR E 'INCR COUNT 
MOV A,E 
CPI OBH "IS COUNT 10+1? 
JZ DONE "BACK TO BASIC 
MOV M,A "AND CALC RPM 
MVI A,7 "GENERATE BEEP 
RST 4 
JMP WAND ‘SAMPLE AGAIN TILL 11 BAR COUNTS 
RET 
END 
Listing 4. The object code produced by the assembly code in listing 3. 
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Crazy Boxes II 
A Model 100 Box Game Update on Request 


by Emmett J. Carmody 




















oon after my Crazy Like a Box 
game was published in the 1 ‘BOXNEW.BA 1/16/87 E. Carmody 
September 1987 issue of 5S CALL 16959:CLEAR1@@0 
| 1Q@ DEFINTA-Z:DIMS(2):P=1 
Portable 100, a reader wrote me to say 


2@ CLS:CALL17001:PRINT@G@,"“cRaZy LikE a BOX"; :CALL17@06 
that he liked the game but that he 30 PRINT: PRINT"SELECT NUMBER OF COLUMNS, 5 TO 13": INPUT"HOW MANY";CL 
would like to see some changes 


: IFCL<SORCL >i STHENBEEP:GOTOS@ ELSE DIM A(CL#*5,5):TL=(CL+1) *5+CL*6 

49 PRINT@80,"Two players take turns. ”;CHR$(227);" 1 “3 CHRS(228) 
made. In particular, he requested 
that the number of boxes be made 


5@ PRINT@120,"Connect dot-pairs to draw "3 CHR# (234) 
variable, and also that the penalty for 


6@ PRINT@160,"sides and close boxes. 4 “3 CHR#(234)5" 2" 

70 PRINT@2@0,"Select boxes & sides by "s CHR$(225);" 3 “3s CHRS(2246) 
errors in play be loss of a box instead 
of loss of a turn. With the first ver- | 


PROGRAM LISTING 


8@ PRINT@G240,"coordinates - e.g. a32 is...BOX a3" 

9@ PRINT@280,"Close box & keep turn. SIDE 2" 

95 FORI=1TO10000: NEXT I 

10 CLS:CALL17Ø1:PRINTEØ,"cRaZy LikE a BOX";:CALL17006 
:B$="abcdefghi jklm”:PRINTG25,LEFTS (BS,CL) 

11@ FOR X=1 TO S:PRINT@22+(X+1) #40, X2NEXT 








sion it seems that a sneaky player can 
fake an error when there are no 
“safe” moves, thus putting his oppo- 
nent on the spot instead of himself. 


users would never do it. However, 
the suggested modifications seemed 





version. 


120 
130 
140 
218 
228 
230 


270 
280 
298 


FOR Y=15 TO SS STEP 8:FOR X=149 TO CL*#6+149 STEP 6 

PSET (X,Y) :PSET (X+1,Y) :PSET(X,Y+1) :PSET(X+1,Y+1) 

NEXTX:NEXTY 

S=0:F 1=0:F2=@:PRINT@8Q, "PLAYER" ;F: BEEP: INPUT"BOX & SIDE"; BS 
C1=ASC (LEFTS(BS,1)):C2=VAL (MID$(BS,2,1)) 

S=VAL (RIGHTS (BS, 1) ) : FORI=1TO30@: NEXT 


: ; 235 FORI=4T06:PRINT@1*4@, SPACES (20) : NEXT 
Of course, this would be dishonest, 240 IFCi<97 OR Ci>97+CL-1 OR C2<1 OR C2>S OR S<i OR S>4 THEN 10000 
250 N={(C1-72)+(C2+1)#4@ ‘CURSOR POS 
and we know that Tandy computer atl Minti onsets ase EA 


IFA(Ni,S)=1 THEN 12000 
X= (NMOD4@) #6 
Y=B8* INT (N/40) 


: s 3 300 ONS GOTO 1Ø00,2000, 3000, 4000 
worth while so herewith, for those 1008 LINE(X,Y-1)-(X+5,Y-1)sLINE(X,Y)-(X+5,Y):P$=RIGHT$ (STR$ (P) , 1) 
who are interested, is the updated 101Ø A(N1,1)=1:A(N1,5)=A(N1,5)+1:K=K+1 
1920 IFC2=1THEN104@ 


1038 A(N1-CL,3)=1:A(N1-CL,S)=A(N1-CL,5) +1 
oe : ist 1040 GOSUB6900 
The listing is a complete listing, aie Scab 
requiring slightly more than 3K of 1@5@ IFA(N1-CL,5) =4ANDP=2THENA (N1-CL ,5)=5 


memory. The discussion will con- 
centrate on the changes only, which 
include some additional streamlin- 
ing. Where practical, the same line 


lines have been added and 43 lines 
have been changed in some way. 
Summarizing, it is a two-player 
game. The board consists of a rec- 
tangle of dots. Players take turns 
connecting dots to form squares. 
Boxes belong to the player complet- 
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1052 
1068 
197@ 
2800 
2010 
2020 


2878 
30008 
3810 
3828 
3838 
3042 
3845 


IFA(N1-CL,5)=40RA(N1-CL45)=STHEN BEEP: PRINT@GN-48,P$:S(P)=S(P) +1: F2=1 
IFFi=1 OR F2=1 THEN GOSUBS8@08:GOT04230 

G0T07000 

LINE (X+5,¥)—(X+5, V+7) sLINE(X+6, Y)—(X+6,¥+7) : P$=RIGHTS(STRS(P) , 1) 
AC(N1,2)=1:A(N1,5)=A(N1,5) +1: K=K+1 

1FC1=97+CL—1THEN2048 


2030 A{N1+1,4)=1:A(N1+1,5)=A(N14+1,5) +1 
: : 2040 GOSUB6AZA 
numbering has been retained. My AE a Ei ATE 
count shows that 11 of the original 205@ IFA(N1+1,5)=4ANDP=2THENA(N1+1 ,5)=5 
. 2052 IFA(N1+1,5)=40RA(N1+1,5)=STHEN BEEP: PRINTGN+1 ,P$:S(P)=S(P)+12F2=1 
lines have been dropped, 21 new 2060 IFFi=1 OR F2=1 THEN GOSUBS@8O:GOTO4230 


GOTO7@e0 

LINE (X, Y+7) — (X45, Y+7) : LINE (X, Y+8) — (X45, ¥+8) : P#=RIGHTS (STRS(P) , 1) 
A(N1,3)=1:A(N1,5)=A(N1,5) +1: K=K+1 

IFC2=STHEN3@40 

A(NL+CL, 1)=1:A(NI4+CL,5)=A(NI4CL,5) 41 

GOSUB6900 


IFC2=STHENS@69 continued 








Listing 1. The new, improved version of last September's Crazy Boxes game. 














GAME 











ing the box. The player with most 
boxes after all have been closed wins. 
Input errors early in the game result 
in loss of turn. Late in the game to 
discourage cheating (by strangers, of 
course), an input error will not result 
in loss of a turn but loss of a box 
instead—if you have one or more, 
that is. Typical errors are: wrong 
coordinates for boxes or sides, use of 
upper case for the column coordinate 
instead of lower case,or drawing a 
line that has already been drawn. The 
computer does all the work—draw- 
ing the lines, keeping the score, keep- 
ing track of whose turn it is and 
levying the penalties. All you have to 
do is sit back and have fun. 

Line 30 contains an input prompt, 
requesting the number of columns 
desired; the limits are 5 to 13, which 





The computer does 
all the work 





permit playing boards to consist of 
25 to 65 boxes in increments of 5. The 
variable assigned is CL and from it, 
the variable TL (for total lines) is 
calculated. Use of CL led to neces- 
sary changes in Lines 100 and 120, 
where the playing board is con- 
structed. CL is also needed in several 
places to define locations within the 


array A(,) which tracks box status. 


Lines 80, 210, 220 and 230 have 


been changed to eliminate the 


comma required previously in iden- 
tifying box and side. This speeds up 
input time. 

Line 235 was added to delete error 
messages which could occur from 
some incorrect input sequences. 

A different formula is used in Line 
260 to find the box number in the 
array of boxes. The constant 96 con- 
verts the ASCII value of “a” (97) to “1' 
(for box 1) and the rest of the formula 

















3050 
3052 
3060 
3870 60T07000 


4029 IFC1=97THEN4040 
4040 GOSUBS900 

40453 IFC1=97THEN4060 
4050 
4052 
4060 
4270 G0T07000 


: PRINTG240, "FINAL"; : NEXT 
4240 GOT04240 





5010 RETURN 

6000 IFA(N1,5)=4ANDP=2THENA(NI ,S)=5 
6010 
6020 RETURN 
7008 
7010 


: GOSUBS@@9: GOTO2Z1@ 

8910 NEXTI: RETURN 

10000 BEEP: PRINTG120,"INPUT ERROR 
: BEEP 
10010 IFK=>TL/2.3THEN1ØØ40ELSE 10020 
10020 IFP=1THENP=2:GOTO218 

10030 IFP=2THENP=1:GOTO218 

10040 FORI=1TOCL*S 

10850 
2S(2)=S(2) +1: GO0TO10080@ 


10060 IFA(1I,S) =SANDP=2THENGOSUB10090:A(1,5)=4:PX=1:S(1)=S(1i) +1 


>S(2)=S(2)-1:GO0TO10080 
10070 NEXTI:GOTO210 


19088 GOSUBSOO@: P#=RIGHTS (STR# (PX) , 1) = PRINTGM,P$:GOTO210 
19890 ROW=INT ((I-1) /CL) s:COL=(I-1) MODCL: M=105+COL+ROW#4@: RETURN 


IFA(N1+CL,S)=4ANDP=2THENA(N1+CL 5S) =5 
IFA(N1+CL , 5S) =40RA(N1+CL,S) =STHENBEEP: PRINTEGN+48,P$:S(P)=S(P) +1: F2=1 
IFFi=1 OR F2=1 THEN GOSUBS@O0@: GOTO42356 


4000 LINE (X—-1,¥)—(X—-1, ¥+7) :LINE(X,Y)—(X,Y+7) :P$=RIGHTS(STRE(P) , 1? 
4010 AC(N1,4)=1:A(N1,5)=At(N1,S) +1: K=K+1 


4030 AC(N1-1,2)=1:A(N1-1,5)=A(N1-1,5) +1 

TFA(N1-1,5) =4ANDP=2THENA (N1-1,5)=5 

IFA(N1—1,5) =40RA (N1—-1,5) =STHENBEEP: PRINTGN-1,P$:S(FP)=S(P)+1:F2=1 
IFFi=1 OR F2=1 THEN GOSUBS8@00: GOTO4250 


4230 GGSUBS@0@: FORI=1TO01@: BEEP: BEEP: PRINT@240," 
50Ø0 PRINT@280,"SCORE: #1:"3;S(1)5" #2:";5(2); 
TFA(N1,S)=4GRA(N1,5)=STHEN BEEP: PRINT@GN,P$:S(P)=S(P)+1:Fi=1 
IFP=1 THENP=2: PRINT@120, SPACES (20) :GOTO210 


IFP=2THENP=1: PRINT@1 20, SPACES (20) :GOTO210 
8080 FORI=1TOCL*5: IFAC1,5S)<>4ANDA(1I,5S)<>S THENPRINT@120, SPACES (20) 


IFAC1,S) =4ANDP=1 THENGOSUB1009@: A(1,5)=S5:PX=2:S(1)=S(1)-1 








“32: FORJ=1TOS@: NEXT 


“: BEEP: BEEP: FORI=1TOS@@: NEXT 


End of listing 








increases this to the correct box 
number. 

A variable K is incremented each 
time a line is drawn in Lines 1010, 
2010, 3010 and 4010 to keep track of 
the total number of lines drawn. K is 
then used in Line 10010 to determine 
whether or not to reverse player turn 
when errors are made. The constant 
2.3 was determined experimentally 
to divide game time into two periods: 
while K < TL/ 2.3 it should still be 
possible to find “safe” places to draw 
a line on the board anda playing error 
will result in loss of turn, not loss of 
box. TL is the maximum number of 
lines which can be drawn for a given 
board size. 

To reduce program size, three 
subroutines are called in the four 
drawing sections for the four differ- 
ent sides of each box, 1000-1070, 
2000-2070, 3000-3070 and 4000-4070. 
These are the routines at 6000, 7000, 
and 8000. In 6000-6020 box owner- 
ship is reversed but not player turn. 





In 7000-7010 only player turn is re- 
versed. Routine 8000-8010 checks for 
still-open (i.e. not closed boxes). On 
finding the first such box, it calls 5000 
to print the score and then returns to 
Line 210 for input. As a result of use 
of the subroutines, these lines in the 
original version have been elimi- 
nated: 1080-1230, 2080-2230, 3080- 
3230 and 4080-4220. 

Note in Line 1050, 2050, 3050 and 
4050 that when player #2 closes a box 
a “5” instead of a “4” is placed in | 
column 5 of array A(,) so that box | 
ownership can be tracked. This ne- 
cessitated new lines 1052, 2052, 3052 | 
and 4052. | 

The routine in Lines 10040-10090 | 
accomplishes the loss-of-box pen- | 
alty for errors in the last half of the | 
game. Subroutine 10090 translates | 
from box number to screen cursor | 
position so the correct player num- | 
ber can be printed in the proper loca- | 
tion, “M”. Line 10080 does the print- 


ing. 4 
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MAXRAM 


Build a Better Mousetrap 


by Alan L. Zeichick 





ast month we discovered that 
even though there may be 
several solutions to every 
programming problem, only one of 


vein, let’s examine a simple pro- 
gramming task that may not be as 
clever as it first appears. 

We want to clear the Model 100’s 
LCD and display the words “Port- 
able 100” on the first line. The stan- 
dard way of programming that op- 
eration is: 


10 GES 
20 PRINT “Portable 100” 


The Model 100-family BASIC uses 
special display codes called escape se- 
quences, usually single letters pre- 
ceded by ASCII 27. Examples in- 
clude Esc-p (CHR$(27)+“p”), which 
turns on inverse video, and Esc-q, 
which resumes normal printing. 
Another escape sequence is Esc-E, 
which clears the liquid-crystal dis- 
play. Can we use that escape code to 
create the statement PRINT 
CHR$(27); “EPortable 100”? We sure 
can, and it does the trick. Is it any 
faster? Let’s use the Model 100’s real- 
time clock to time a few thousand 
repetitions of the original version, 


efficiency: 





100 TIME$=“00:00:00” 


those solutions is the best. In that | 


placing the CLS and PRINT state- | 
ments on one line to add a bit of | 
| same action as the shorter, more di- 
| rect CLS. 








110 ’ 

120 FOR C=1 TO 5000 

130 CLS:PRINT “Portable 100” 
140 NEXT C 

150” 

160 PRINT TIME$ 


After you’re through running 
these timing programs, you'll need to 
reset your system clock to the correct 
time. In terms of memory, this pro- 
gram, when saved as the tokenized 
BASIC file CLS.BA, consumed 88 
bytes, and asa text file, CLS.DO, used 
115 bytes of RAM. It took 321 seconds 
to run. 

To try the second choice, I change 
line 130 to the following: 


130 PRINT CHR$(27);”“EPortable 
100” 


This file needed 94 bytes saved as 
ESCAPE.BA, and 122 as 
ESCAPE.DO. This version ran in 325 
seconds. Why is this oh-so-clever 
version slower and bigger? CLS is a 
BASIC keyword which occupies only 
a few bytes, and the BASIC inter- 
preter knows exactly what to do 
when it sees it. The ASCII version, on 
the other hand, requires a call to the 
CHR$() function, and a decoding of 
the Esc-E function by the inter- 
preter—all of which results in the 


The moral of the story is, check it 





out. An ingenious solution may be 
the next best thing to sliced bread. Or 
it might only be a burnt bagel. 


MAKING IT RUN 


A few days after each issue of 
Portable 100 reaches the subscribers, 
I’m inundated with phone calls 
about programs—"I can’t get it to 
run.” Usually, the reader has misin- 
terpreted the article’s instructions or 
made a very subtle typo. At other 
times, the laptop computer’s BASIC 
environment has been changed from 
the cold-start default, and the pro- 
gram needs to correct this. When 
11:30 PM rolls around, and you still 
can’t get the program to run, try 
these suggestions: 


1. If the error message is 70D, out of 
data, count the number of items in 
your data statements, and check the 
positioning of quotation marks and 
commas. 

2. If you are out of memory, 70M, 
you'll need to free up some RAM. 
Save some files to cassette or disk, 
and then KILL them from RAM. 

3. If you see ?TN, type mismatch, 
you've probably left a dollar sign off 
of a string variable’s name. 

4. The ?OS, out of string space mes- 
sage occurs when the program re- 
quires more string variable storage 
space than you have defined in a 
CLEAR statement. If the program 
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FOUR MODEL 100 BOOKS 


The Model 100 Program Book 
by Terry Kepner and 
David Huntress 

This book contains 51 useful and 
interesting BASIC programs designed 
for home, office, and educational uses. 
Program examples include: Bar Graph, 
Depreciation, Annuity, Pie Chart, 
Forms creation, Invaders game, 
Memory scan, Touch typing tutor and 
many others. 
Only $12.95 plus shipping. 


60 Business Applications 
Programs for the TRS-80 
Model 100 Computer 
by Terry Kepner and 
Mark Robinson 

Here are 60 powerful programs for 
interest calculations, annuities, 
depreciation, invoices, breakeven sales 
analysis, and more. 
Only $17.95 plus shipping. 


contains a CLEAR function, increase 
the first parameter. If it doesn’t have 
one, insert one after any DEF state- 
ments. Start with CLEAR 1000, and 
make it bigger if you have to. 

5. If an OPEN statement results in 
2BN bad file number, the MAXFILES 
parameter is probably too low. 
Check the line with the bad file 
number for a biographical error. If 
it’s okay, then add a line to your 
program, after the DEF statements, 
that says MAXFILES=3. (Three is the 
| Model 100’s default, and usually 
solves the problem.) 


Other errors are often harder to 
find. Here are a few tricks which 
work for me: 


1. If the error message is 70D, out of 
data, count the number of items in 
your data statements, and check 
the positioning of quotation 
marks and commas. 


Inside the Model 100 
by Carl Oppedahl 
"an excellent Guide" —New York 
Times 

Inside the TRS-80 Model 100 is a 
thorough guide to the internal work- 
ings of the Tandy Model 100, the best 
selling portable laptop computer. This 
book is a valuable source of informa- 
tion for those who wish to learn 
assembly language programming on 
the Model 100. Other areas include: 
Disassembled ROM routines; Key- 
board scanning; UART, RS-232C, and 
modem; Clock/calendar chip; Interrupt 
handling; 8085 instruction set. 
Only $19.95 plus shipping. 





User Guide and Applications 
for the TRS-80 Model 100 
Portable Computer 


by Steven Schwartz 

Gain expertise on the Tandy Model 
100 with 14 ready-to-run programs for 
business. This package includes 
programs for statistics, graphics, 
sound, and more. With cassette tape. 
Only $42.95 plus shipping. 
Or buy them separately— the book is 
only $17.95; the cassette tape is only 
$25.00, plus shipping. 


Please add $2.00 shipping and 
handling for each book ordered. 





Short, Simple, And Basic 
80 Pheasant Glenn, P.O.Box 11 
West Peterborough, NH 03468-0011 


Your source for Tandy Model 100/102 books. 





2. If you are out of memory, 20M, 
you'll need to free up some RAM. 
Save some files to cassette or disk, 
and then KILL them from RAM. 

3. If you see ?TN, type mismatch, 
you've probably left a dollar sign 
off of a string variable’s name. 

4. The 20S, out of string space message 
occurs when the program re- 
quires more string variable stor- 
age space than you have defined 
in a CLEAR statement. If the pro- 
gram contains a CLEAR function, 
increase the first parameter. If it 
doesn’t have one. insert one after 
any DEF statements. Start with 
CLEAR 1000, and make it bigger if 
you have to. 

. If an OPEN statement results in 
?BN bad file number, the 
MAXFILES parameter is probably 
too low. Check the line with the 
bad file number for a biographical 
error. Ifit’s okay, then add a line to 


gı 


your program, after the DEF state- 











ments, that says MAXFILES=3. 
(Three is the Model 100’s default, 
and usually solves the problem.) | 


Finally, don’t forget the obvious: 


1. Are all required data files present 
in RAM or on disk, and do they 
have the correct names? 

2. If the program requires the printer, 
is it properly connected, loaded 
with paper, and ready to print? 
You might wish to test the 
printer’s connection by printing 
any small TEXT document. 

3. If the program prints graphics or 
uses special printer functions, 
does your own printer support 
those features? 


If the above steps don’t help, then 
give Portable 100 a call—but please, 
wait until morning. 

Next month: More algorithm 
ideas! m 
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M100, M102, M200 RAM 
AT AFFORDABLE PRICES 


M100 Increase the capacity of your Model 100 up to 
128K. This is the same upgrade that has been sold for over 
two years to thousands of sat- 

isfied customers. The 96K ver- 

sion of additional RAM is now 

also available in an affordable 

64K version. It simply snaps 

into the bottom of the com- OS EE EREE 
puter, no disassembly required. And included is proven 
ROM software that makes this non-volatile RAM truly an 
extension of the computer memory. 


eee 


- Ett 
M102 This tiny RAM pack 
connects externally to your 
Model 102 and boosts the 
memcry to 160K or 288K! In- 
stallation is as simple as plug- 
ging the cartridge into the ex- 
ternal system buss. No modification to the computer is 
required and the software is included. Unplug the cartridge 
and retain the memory because this RAM is non-volatile 
battery backed. 


M200 At last an answer for the memory shortage of the 
Model 200. This RAM cartridge is similar in function to the 
M102 cartridge and is just as easy to use. It is also battery 
backed and boosts the RAM by 96K or 192K. 
TOTALRAM** 168K (264K 
asidi PRICE $229 $299 
Your satisfaction is our goal. All products come with 
a 30 day satisfaction refund, and a one year limited 
warranty. Instructions are included. 
*Includes original 32K 
**Includes original 72K 


Please Call or Write 
For Descriptive Literature 


714-540-1174 
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We also have other memory 
products for Tandy portables. 


= AMERICAN 


1580 Corporate Drive, Suite 123 
Costa Mesa, California 92626 
(714) 540-1174 





Tandy is a Registered Trademark of Tandy Corp. 


Circle 79 on Reader Service card. 





CRYPTRONICS INC. 





ADVERTISERS INDEX 


Free 
Information 


For free information on products 
advertised in this issue of Portable 
100, locate the Reader Service num- 
[ber corresponding to the advertise- 
‘ment that interests you. Circle the 
number on the Reader Service Card 
at the center of the magazine (or on 
the wrapper protecting the maga- 
|zine if you area subscriber) and drop 
\it into the mail. The literature you've 
requested will be forwarded to you 
without any obligation. Please allow 
3--5 weeks for delivery. 
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79 American Cryptronics 38 
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81 Kangaroo Video Products 23 
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Products 27 
71 Portable Computer 
Support Group 7 
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40 Portable Computer 
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60 Simons Products 33 
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Don't forget to say 
you saw it 
in Portable 100! 
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Wake Up! BOOSTER PAK is Here! 
Traveling Software introduces the BOOSTER 
PAK! An incredible breakthrough for Tandy 
Model 100/102 laptop computers. The 
BOOSTER PAK gives you an unprecedented 
2 megabytes of RAM memory and ROM 
software. At a very affordable price 


i 


Cl 





Jt 
be 


E 


a 


JE 
a 


a 
m 
u 


g 
7 
A 








g 


Everything You Asked For and More! 
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Ever Dream of a Faster Modem, Longer Battery Life, 


Flexible Design 
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e BOOSTER PAK is designed to meet your 
leeds now and in 


he future. You can 
go. 


Easy Installation 


STER PAK onto the 


attom of your Tandy 100/102. Plug in two 
cables and you're i 
Built-in Software 
e as the hardware is the 
ilt-in BOOSTER PAK software. Ot 
virtual RAM disk software eliminate 
nk switching: File subdirectories 
e supported for easy organization 
rograms can access files as 
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The BOOSTER PAK 


and All the RAM Memory and 
ROM Software you want? 
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also included our pop- 


ar TS-DOS disk operating system for use 
idy disk drive and our new Desk 





Here's what you 
get in a standard 
BOOSTER PAK for 
only $429: 


128K of RAM memory 
(96K available for files) 
64K of ROM software 
16 socketed slots for 
32K RAM and/or ROM 
software chips 

2 Tandy Molex ROM 
sockets 

Virtual RAM software 
(no bank switching or 
copying) 
File falders/sub 
directo ted 
TS-DOS disk software 
built-in 

XMODEM file upload 
downloading to virtual 
RAM 








Long-life lithium battery 
for RAM backup (rated 
al 7 years) 

BASIC programming 


al RAM 





access to 
ROM environment soft 
ware (mix and match 
any ROM software) 
Ability to 
software 








ics) built-in 


BOOSTER PAK 
Options 


32K RAM (certified low 
power) chips ($20 ea.) 
6 slot RAM expansion 

board ($68) 

256K RAM expansior 


modules (requires expan- 


sion board) ($159 ea.) 



















Internal rechargeable 
nicad battery pak ($79) 
Internal 1200 baud 
Hayes-compalible 





modem ($19 

IBM Desk-Link software 
(requires a serial cable) 
($39.95) 


Desk-Link null modem 
serial cable ($19.95) 


Sardine Plus word 
processing and spel 
ling check 
($199.95) Four 
chip set includes 
complete Randor 
House dic 
tionary 












ell as an XMODEM pro- 


Booster Pak. 







Jo order BOOSTER PAK cal! toll free 


1 800 343-8080 
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OW YOU CAN REALLY HAVE IT ALL! 


available for the Model 100 — guaranteed. 


Try it for 30 days. If you aren’t blown away by the 
excellence return it for a full refund. 


The four best programs for the Model 
100 all on one ROM. 32K of power with- 
out using any RAM for program stor- 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 
main menu like built-ins, 

Write ROM — the definitive word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu- 
ments into text from just a code. MAP 
lets you see a picture of your document. 
In all there are 60 features and func- 
tions. No one can claim faster operation. 
FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100 compares with the 
features of Write ROM. Exactly the 
same.as the Write ROM sold as a single 
program. Infoworld says it “makes the 
Model 100 a viable writing unit ... sur- 


passed our highest expectations for 
quality aud Clarity.” 

Lucid Spreadsheet: This is the one 
PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as “excellent” and 
said “makes the Model 100 compute.” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K ona desktop. Program gener- 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func- 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every- 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input screens as simply as typing into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 
wish. Prints out reports or forms, get- 
ting information from as many files as 


(214) 351-0564 


you like. Complete math between fields. 
Total interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does ona PC but a whole lot better. 
Includes a Sort for your headlines. Lets 
you have headlines of up to 240 charac- 
ters. Has cloning, hoisting and sideways 
scroll up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. This is the way to plan and organize 
your projects. 

Present Lucid and Write ROM 
owners can upgrade for $150. If you 
have both it’s $125. 

As usual PCSG sells the Super ROM 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply 
return it for a full refund. 

We are excited about this product. 
Super`ROM gives the Model 100 the 
true power of a desktop. No other multi- 
program ROM has software that com- 
pares. But don’t take our word for it. We 
invite you to make that comparison 
yourself. Priced at $199.95 on Snap-In 
ROM. 


Got stuck with somebody elses multi-ROM? 
We'll upgrade it for $150. 
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11035 Harry Hines Blvd., #206, Dallas, TX 75229 
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